单项选择题

有如下事件过程： Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(a) b = InputBox("请输入b值") b = Val(b) a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为( )。

A．6000
B．-10
C．200
D．-6000
<上一题 目录 下一题>
热门 试题

单项选择题
单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c, b, a) End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As Integer, y As Integer, z As Integer) SecProc=FirProc(z, x, y)+x End Function
A．20
B．22
C．28
D．30
单项选择题
下述程序执行后，输出结果是( )。 For n = 3 To 1 Step-1 x$ = String$(n, # ) Print x$ Next n
A．1# 2# 3#
B．### ##
C．# ## ###
D．3# 2# 1#
相关试题