(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
