重要提示：
请勿将账号共享给其他人使用，违者账号将被封禁！
题目
运行下列程序：
Dim x, y
Private Sub Form_Click()
x = 1: y = 1: z = 1
fun1 (1)
Print x; y; z
End Sub
Private Sub fun1(a)
x = a + x: y = a + x: z = a + y
End Sub
单击窗体后，则输出结果是()。
A.1 1 1
B.2 3 1
C.2 3 4
D.2 2 1
更多“运行下列程序：Dim x, yPrivate Sub Form_Click（)x = 1: y = 1: z = 1fun1 （1)Print x; y; zE”相关的问题
第1题
下列程序的运行结果为______。Private Sub Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd Sub
A．100
B．500
C．2500
D．5000
第3题
运行下列程序：
Private Sub form_Click()
Dim x
x = 0
Do While x ＜ 10
x = x + 3
Loop
MsgBox x
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.0
B.3
C.10
D.12
第4题
阅读下列程序并写出程序运行结果。
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = y + 3
Form1.Print "x="; x, "y="; y
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
第5题
运行下列程序：
Private Sub Form_Click()
Dim y As Integer, x As Integer
Do Until x ＞ 20
x = x + 10
y = y + x
If x ＞ 20 Then Exit Do
Loop
Print x, y
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.10 20
B.30 60
C.10 30
D.20 60
第6题
运行下列程序：
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
第7题
运行下列程序：
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
第8题
A.0
B.2
C.10
D.12
第9题
A.0
B.100
C.10
D.11
相关内容
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
