题目内容
（请给出正确答案）
Private Sub Command1_Click()
Dim x As Integer, n As Integer
n = 0
Do
n = n + 2
x = x + n
Loop While n＜ 10
Debug.Print x
End Sub
单击Command1命令按钮后，则在立即窗口上输出结果是是()。
A.2
B.10
C.12
D.30
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“运行下列程序：”相关的问题
下列程序的运行结果是()。 Private Sub Commandl_Click() a=1.5 b=1.5 Call fun(a,B)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End Sub
A．2.25 3.75
B．1.5 2.25
C．1.5 0.75
D．0.75 1.5
下列程序的运行结果是()。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,B) Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End Sub
A．2.25 3.75
B．1.5 2.25
C．1.5 0.75
D．0.75 1.5
运行下列程序：
Private Sub form_Click()
For i = 1 To 4
t = t * 10 + i
s = s + t
Next i
Print s
End Sub
单击窗体后，则输出结果是()。
A.1234
B.4321
C.1370
D.4444
运行下列程序：
Private Sub Command1_Click()
a = Val(InputBox("a = "))
Print fun1(a)
End Sub
Private Function fun1(b)
If b ＞ 0 Then
fun1 = 10
ElseIf b = 0 Then
fun1 = 9
Else
fun1 = 8
End If
End Function
单击按钮后从键盘为变量a输入数据3，输出的结果是()。
A.3
B.8
C.9
D.10
运行下列程序：
Private Sub Form_Click()
a = 32: b = 5
Do
a = a / 2
b = b + 1
Loop While b< 10
Print a
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.1
B.2
C.5
D.11
下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub
A．1
B．12
C．11
D．32
下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Sub
A．6 6
B．5 8
C．13 21
D．34 55
运行下列程序：
Private Sub Form_Click()
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x ＞ 10
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.5
B.1 2 3 4 5
C.19
D.7
（28）下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
