单项选择题

在窗体上画一个名称为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．死循环

<上一题目录下一题>

热门试题

单项选择题

单击命令按钮时，下列程序代码的执行结果为( )。 Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Funcfion Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z，x，y)+x End Funcfion Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2 b=3 c=4 Printf SecProc(c,b,a) End Sub

A．21
B．19
C．17
D．34

单项选择题

有以下程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subPa() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为( )。

A．2
4
6
8
B．5
6
7
8
C．10
12
14
16
D．出错

相关试题