31.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入a的值") a=Val(a) b=InputBox("请输入b的值") b=Val(b) x=InputBox("请输入x的值") x=Val(x) a=a+b+x LOOP Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为____。 A、2 B、3 C、14 D、15

A       B       C       D

32.假定编写如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single,Y As Sin-gle) If(Button And 2)=2 Then Print"Hi" End If End Sub 程序运行后，为了在窗体上输出“Hi”，应在窗体上执行以下____操作。 A、只能按下左按钮并拖动 B、只能按下右按钮并拖动 C、必须同时按下左、右按钮并拖动 D、按下左按钮拖动或按下右按钮拖动都可

A       B       C       D

33.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 A、7 9 B、34 0 C、9 7 D、死循环

A       B       C       D

34.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是 A、2 B、3 C、4 D、5

A       B       C       D

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

A       B       C       D