Next Ne TextI Text=array l(2, 3)+array1(3, 4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是()。 B)13 (24)在窗体上画一个命令按钮,其名称为 Command1,然后编写下列事件过程: Private Sub Commandl Click) Dim al(4,4),a2(4,4) For i=l To 4 For =l To 4 a2(1,i=al(1j)+i+j Print al(3,3)a2(3,3) End Sub 程序运行后,单击命令按钮,在窗体上输出的是()。 A)66 B)105 C)721 D)612 (25)有下列事件过程: Private Sub Form Click() Dim arr sum arrRay(1,3,5,79,1113,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)3 Then End if Print su End Sub 程序运行后,单击窗体,输出结果为()。 A)25 B)26 C)27 (26)在窗体上有一个命令按钮,然后编写下列事件过程 Private Sub Commandl Click() Dim a(5)As Strin For i=l To 5 a(i=Chr(ASc("A")+(i-1)) ext i For each b In a Print b Next End Sub 二级 Visual basic语言程序设计试卷第5页(共11页)二级 Visual Basic 语言程序设计试卷 第 5 页（共 11 页） Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。 A）12 B）13 C）14 D）15 （24）在窗体上画一个命令按钮，其名称为 Command1，然后编写下列事件过程： Private Sub Command1_Click( ) Dim a1(4,4),a2(4,4) For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是（ ）。 A）6 6 B）10 5 C）7 21 D）6 12 （25）有下列事件过程： Option Base 1 Private Sub Form_Click( ) Dim arr,sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为（ ）。 A）25 B）26 C）27 D）28 （26）在窗体上有一个命令按钮，然后编写下列事件过程： Private Sub Command1_Click( ) Dim a(5) As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub