Loop Print End Sub 程序运行后,单击窗体,输出结果是() B)563 )2435 (21)有下列事件过程: Private Sub Form Click() Dim Check, Counter Check-True Counter( Do while Counter<20 If Counter10 Then CheckeFal Exit Do End If Loop Until Check=False Print Counter. Check End Sub 程序运行后,单击窗体,输出结果为() B)20-1 c) 10 True D) 10 False (2)有下列事件过程 Private Sub Form Click() Dim iAs Integer, sum As Integer If i Mod 2<>0 And i Mod 3=0 Then Print End Sub 程序运行后,单击窗体,输出结果为()。 (23)在窗体上画一个名称为 TextI的文本框和一个名称为 Command l的命令按钮,然后编 与下列事件过程 Private Sub Commandl Click( Dim array(10, 10)As Integer Dim iAs Integer, J As Integer For F=l To 3 For j=2 To 4 二级 Visual basic语言程序设计试卷第4页(共11页)二级 Visual Basic 语言程序设计试卷 第 4 页（共 11 页） Loop Print x,n End Sub 程序运行后，单击窗体，输出结果是（ ）。 A）81 4 B）56 3 C）28 1 D）243 5 （21）有下列事件过程： Private Sub Form_Click( ) Dim Check, Counter Check=True Counter=( ) Do Do while Counter<20 Counter=counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为（ ）。 A）15 0 B）20 -1 C）10 True D）10 False （22）有下列事件过程： Private Sub Form_Click( ) Dim i As Integer, sum As Integer sum=0 For i=2 To 10 If i Mod 2<>0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为（ ）。 A）12 B）30 C）24 D）18 （23）在窗体上画一个名称为 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