(26)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private SubCommand1_Click()
n=Val(Text1.Text)
For i=2 To n
For j=2To Sqr(i)
If i Mod j=0 Then Exit For
Next j
Ifj>Sqr(i)Then Print i
Next i
End Sub
该事件过程的功能是
A)输出n 以内的奇数
B)输出n 以内的偶数
C)输出n 以内的素数
D)输出n以内能被j整除的数
正确答案: C
(27)以下描述中正确的是
A)标准模块中的任何过程都可以在整个工程范围内被调用
B)在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C)如果工程中包含Sub Main过程，则程序将首先执行该过程
D)如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
正确答案: B
(28)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m AsInteger)
If m Mod 2=0 Then
f=m
Else
f=1
End If
End Function
Private Sub Command1_Click()
Dim i AsInteger
s=0
For i=1 To 5
s=s+f(i)
Next
Prints
End Sub
程序运行后，单击命令按钮，在窗体上显示的是
A)11
B)10
C)9
D)8
正确答案: C
(29)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private SubCommand1_Click()
Dim array1(10,10)As Integer
Dim i As Integer, jAs Integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A)15
B)14
C)13
D)12
正确答案: D
(30)在窗体上画4个文本框(如图所示)并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)=Text1(i)Index
i=i+1
Next
EndSub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为
A)0 1 2 3
B)1 2 3 4
C)0 1 3 2
D)出错信息
正确答案: A
责任编辑：小草
