题目内容
（请给出正确答案）
运行下列程序：
Dim b
Private Sub Form_Click()
a = 1: b = 1
Call fun1(a)
Print "X = "; a; ",Y = "; b
End Sub
Private Sub fun1(a)
b = 2 * a
a = 3 * b
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.X = 1，Y = 1
B.X = 2，Y = 6
C.X = 6，Y = 2
D.X = 6，Y = 1
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“运行下列程序：Dim bPrivate Sub Form_Click（)a = 1: b = 1Call fun1（a)Print "X = &quo”相关的问题
A.7
B.-7
C.7.75
D.8
运行下列程序：
Private Sub Form_Click()
Dim sum As Integer
Dim i As Integer
sum = 0
For i =12.4 To3.1 Step -3.8
sum = sum + i
Next i
Debug.Print sum
End Sub
单击窗体后，则在立即窗口上输出结果是()。
A.15
B.- 0.7
C.24
D.0
阅读下列程序并写出程序运行结果。
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "8"
A(3) = "12"
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后，窗体Form1上的结果。
下列程序运行后，信息框显示的内容是()。
Private Sub Command1_Click()
Dim s1 As String
Dim s2 As Integer
s1 = "Hello-World,2004"
s2 = Len(s1) + InStr(1, s1, "2")
MsgBox s2
End Sub
A.Hello-World
B.2003
C.16
D.29
下列程序段的运行结果是()。
Sub sele()
Dim n As Integer
i=21:n=3
Do While i＞n
i=i-n
Loop
Print i
End Sub
A．2
B．4
C．5
D．3
（12）下列程序段的运行结果是 Sub sele() Dim n As Integer I=21:n=3 Do While i＞n I=i-n Loop Print i End SubA.2 B.4 C.5 D.3
下列程序的运行结果为______。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
运行下列程序，单击窗体后输出的结果是()。
Private Sub Form_Click()
Dim a
Dim s As Integer, i As Integer
a = Array(1, 2, 3, 4, 5, 6)
s = 1
For i = 5 To 1 Step -2
s = s * a(i)
Next i
Print s
End Sub
A、 15
B、 48
C、 120
D、 720
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
