26.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j>Sqr(i) Then Print i Next i End Sub 该事件过程的功能是 A、输出n以内的奇数 B、输出n以内的偶数 C、输出n以内的素数 D、输出n以内能被j整除的数

A       B       C       D

27.以下描述中正确的是 A、标准模块中的任意过程都可以在整个工程范围内被调用 B、在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程 C、如果工程中包含Sub Main过程，则程序将首先执行该过程 D、如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体

A       B       C       D

28.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1_Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub 程序运行后，单击按钮，在窗体上显示的是 A、11 B、10 C、9 D、8

A       B       C       D

29.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i As Integer,j As 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

A       B       C       D

30.在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1 （下标从0开始，自左至右顺序增大，然后编写如下事件过程： 　Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text(1).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 A、0 1 2 3 B、1 2 3 4 C、0 1 3 2 D、出错信息

A       B       C       D