(21)窗体上有一个文本框，用于接收正整数。为保证输入数据的合法性 (即正整数)，可以在该数据输入结束后准备继续其他操作时进行数据的合法性检查。为实现上述目的，应选用的事件是
(22)设有如下程序：
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer, n As Integer
n = 6
For i = 1 To n
a(i) = i * i
Next i
For i = 1 To n / 2
temp = a(i)
a(i) = a(n - i)
a(n - i) = temp
Next i
For i = 1 To n
Print a(i);
Next
End Sub
程序运行后，单击命令按钮Command1，输出结果为
(23)工程中包含Form1、Form2两个窗体，Form1是启动窗体，两个窗体上都有名称为 Label1的标签和名称为Command1的命令按钮，窗体外观分别如图1、图2所示：
Form1的事件过程如下：
Private Sub Command1_Click()
Form2.Show
End Sub
Form2中的事件过程如下：
Private Sub Command1_Click()
Label1.Caption = Form1.Label1.Caption
End Sub
关于以下程序，下面叙述中错误的是
(24)窗体上有一个名称为Dir1的目录列表框，一个名称为File1的文件列表框。当改变目录列表框的内容时，文件列表框的内容应该与之同步改变。为实现两控件同步操作，应该使用的事件过程是
(25)列表框List1中没有数据项，现编制如下程序：
Private Sub Command1_Click()
For i = 1 To 6
List1.AddItem i
Next i
For i = 5 To 3 Step -1
List1.RemoveItem i
Next i
End Sub
程序运行后，单击命令按钮Command1，则列表框List1中的数据项为
(26)一个工程文件中含有窗体Form1、Form2和标准模块Model1。如果Form1的声明部分有语句Private x As Integer，且Model1中有语句Public y As Integer，则下列说法中，正确的是
(27)下列关于文件及其操作的描述中，正确的是
(28)下列操作说明中，错误的是
(29)在窗体上画一个名称为CD1的通用对话框，并编写如下程序：
Private Sub Command1_Click()
CD1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc"
CD1.FilterIndex = 2
CD1.Action = 2
End Sub
运行程序，并单击命令按钮Command1，下面描述中正确的是
(30)下列关于Visual Basic菜单的叙述中，错误的是
(31)下列关于Sub Main过程的描述中，错误的是
(32)设有如下程序：
Private Sub Command1_Click()
Dim i As Integer
str1 = InputBox("输入一个字符串")
str2 = ""
i = 0
Do While i < Len(str1) / 2
str2 = str2 + Mid(str1, i + 1, 1)
str2 = str2 + Mid(str1, Len(str1) - i, 1)
i = i + 1
Loop
Print str2
End Sub
程序运行后，单击命令按钮Command1，在弹出的输入对话框中输入“abcdef”，则输出结果为
(33)命令按钮Command1的单击事件过程如下：
Private Sub Command1_Click()
Dim x As String
Dim y As String
x = InputBox("输入字母", "输入")
y = IIf((ucase9x) <> "A", "表达式1", "表达式2")
Print y
End Sub
运行程序，单击命令按钮，在弹出的输入对话框中输入“ a”，则以下描述中正确的是
(34)设有如下程序：
Sub proc(x() As Integer)
Static i As Integer
Do
x(i) = x(i) + x(i + 1)
i = i + 1
Loop While i < 2
End Sub
Private Sub Command1_Click()
Dim a(5) As Integer, i As Integer
For i = 0 To 4
a(i) = i + 1
Next i
Call proc(a)
Call proc(a)
For i = 0 To 4
Print a(i);
Next i
End Sub
程序运行后，单击命令按钮Command1，输出结果为
(35)以下程序将随机产生n个两位整数，并使用冒泡法将它们按递增顺序排序后输出。
Option Base 1
Private Sub Command1_Click()
Dim a() As Integer
Dim i As Integer, j As Integer
Randomize
n = InputBox("输入数据个数")
ReDim a(n)
For i = 1 To n
a(i) = Int(Rnd * 90) + 10
Next i
For i = 1 To n - 1
For j = 1 To n - i
If a(j) < a(j - 1) Then
temp = a(j): a(j) = a(j - 1): a(j - 1) = temp
End If
Next j
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
运行以上程序，发现有错误，需要对j循环的开始语句进行修改。以下正确的修改是
