题目内容
（请给出正确答案）
运行下列程序，窗体中的显示结果是：x= 。
Option Compare Database
Dim x As Integer
Private Sub Form_Load（）
x=3
End Sub
Private Sub Commandll_ Click()
Static a As Integer
Dim b As Integer
b=x^2
funl x，b
funl x，b
MsgBox〝x=〞&x
End Sub
Sub funl（ByRef y As Integer，ByVal z As nteger）
y=y+z
z=y-z
End Sub
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“运行下列程序，窗体中的显示结果是：x= 。Option Compare DatabaseDim x As IntegerPrivate Sub For”相关的问题
运行下列程序，窗体中的显示结果是：x= 。
Option Compare Database
Dim x As Integer
Private Sub Form_Load（）
x=3
End Sub
Private Sub Commandll_ Click()
Static a As Integer
Dim b As Integer
b=x^2
funl x，b
funl x，b
MsgBox〝x=〞&x
End Sub
Sub funl（ByRef y As Integer，ByVal z As nteger）
y=y+z
z=y-z
End Sub
（11）运行下列程序，窗体中的显示结果是：x= 【11】 。
Option Compare Database
Dim x As Integer
Private Sub Form_Load()
x=3
End Sub
Private Sub Command11_Click()
Static a As Integer
Dim b As Integer
b=x^2
fun1 x,b
fun1 x,b
MsgBox "x="&x
End Sub
Sub fun1(ByRef y As Integer,ByVal z As Integer）
y=y+z
z=y-z
End Sub
A.TrueTrue
B.35
C.窗体无显示
D.x=3y=5
运行下列程序：
Private Sub Form_Click()
a$ = 2
b$ = 1
Call abcd(a, b, c$, d$)
Print c; d
End Sub
Private Sub abcd(x$, y$, z$, s$)
z = x + y
s = x - y
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.3 1
B.1 3
C.211
D.显示出错信息
运行下列程序：
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
运行下列程序：
Private Sub form_Click()
x = 8: y = 2
Call fun1((x), y)
Print x, y
End Sub
Private Sub fun1(x, y)
s = x
x = s / y
y = s Mod y
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.4 2
B.8 2
C.8 0
D.2 4
运行下列程序：
Private Sub Command1_Click()
x = 3
If x ＜ 3 Then Print x + 3;
If x ＜ 4 Then Print x + 4;
If x ＜ 5 Then Print x + 5;
If x ＜ 6 Then Print x + 6;
End Sub
单击Command1命令按钮后，则在窗体上显示的结果是()。
A.6 7 8 9
B.7 8 9
C.8 9
D.9
运行下列程序：
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
运行下列程序：
Option Base 1
Private Sub Form_Click()
y = 43
x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)
For i = 1 To 10
If x(i)< y then
z = x(i) + 1
y = x(i)
Else
z = z + y
End If
Next i
Print z
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.43
B.21
C.37
D.44
运行下列程序：
Private Sub Command1_Click()
x = "祝你成功"
y = "1234"
For i = 1 To 4
z = z + Mid(x, i, 1) + Left(y, 1)
Next i
Print z
End Sub
单击Command1命令按钮后，则在窗体上显示的结果是()。
A.祝你成功1234
B.祝1你2成3功4
C.1234祝你成功
D.祝1你1成1功1
运行下列程序：
Private Sub form_Click()
Dim sl As String, s2 As String
s1 = "1234"
m = 0
For i = 3 To 1 Step -1
m = m + 1
s2 = fun1(s1, m)
Debug.Print s2;
Next i
End Sub
Private Function fun1(x, y) As String
fun1 = Right(x, y)
End Function
单击窗体后，则在立即窗口内显示结果是()。
A.1234
B.4321
C.434234
D.1111
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
