2010年3月计算机等级考试二级VB试试题(文字版)

　　(31)窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：

　　Private Sub Comand1_Click()

　　For k=List1.ListCount-1 To 0 Step -1

　　If List1.Selected(k) Then

　　List2.AddItem List1.List(k)

　　List1.RemoveItem k

　　End If

　　Next k

　　End Sub

　　程序运行时，按照图示在List1中选中2个列表项，然后单击Commandl命令按钮，则产生的结果是

　　A)在List2中插入了“外语”、“物理”两项

　　B)在List1中删除了“外语”、“物理”两项

　　C)同时产生A)和B)的结果

　　D)把List1中最后1个列表项删除并插入到List2中

　　(32)设工程中有2个窗体： Form1、Form2，Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见;否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：

　　Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KeyAscii=13 Then

　　If Text1.Text="Teacher" Then

　　Form2.input.visible=True

　　Else

　　Form2.input.visible=False

　　End If

　　End If

　　Form1.Hide

　　Form2.Show

　　End Sub

　　程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是

　　A)把Form1中Text1文本框及相关程序放到Form2窗体中

　　B)把Form1.Hide、Form2.Show两行移到2个End If之间

　　C)把If KeyAscii=13 Then改为 If KeyAscii="Teaeher" Then

　　D)把2个Form2.input.Visible中的“Form2”删去

　　(33)某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中

　　Private Sub Comand1_Click()

　　Open "out.txt" For Output As #2

　　Print "Text1"

　　Close #2

　　End Sub

　　调试时发现没有达到目的，为实现上述目的，应做的修改是

　　A)把Print "Text1"改为Print #2,Text1

　　B)把Print "Text1"改为Print Text1

　　C)把Print "Text1"改为Write "Text1"

　　D)把所有#2改为#1

　　(34)窗体上有一个名为Command1的命令按钮，并有下面的程序：

　　Private Sub Comand1_Click()

　　Dim arr(5) As Integer

　　For k=1 To 5

　　arr(k)=k

　　Next k

　　prog arr()

　　For k=1 To 5

　　Print arr(k)

　　Next k

　　End Sub

　　Sub prog(a() As Integer)

　　n=Ubound(a)

　　For i=n To 2 step -1

　　For j=1 To n-1

　　if a(j)

　　t=a(j):a(j)=a(j+1):a(j+1)=t

　　End If

　　Next j

　　Next i

　　End Sub

　　程序运行时，单击命令按钮后显示的是

　　A)12345

　　B)54321

　　C)01234

　　D)43210

　　(35)下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是

　　Private Sub Comand1_Click()

　　Dim count(25) As Integer, ch As String

　　ch=Ucase(InputBox("请输入字母字符串"))

　　For k=1 To Len(ch)

　　n=Asc(Mid(ch,k,1))-Asc("A")

　　If n>=0 Then

　　Count(n)=Count(n)+ 1

　　End If

　　Next k

　　m=count(0)

　　For k=1 To 25

　　If m

　　m=count(k)

　　End If

　　Next k

　　Print m

　　End Sub

　　A)0

　　B)1

　　C)2

　　D)3