计算机二级
运行下列程序，窗体中的显示结果是：x= 。Option Compare DatabaseDim x As IntegerPrivate Sub Form_Load（）x=3End SubPrivate Sub Commandll_ Click()Static a As IntegerDim b As Integerb=x^2funl x，bfunl x，bMsgBox〝x=〞&xEnd SubSub funl（ByRef y As Integer，ByVal z As nteger）y=y+zz=y-zE
题目
运行下列程序，窗体中的显示结果是：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
相似问题和答案
第1题：
（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
（11）21
第2题：
运行下列程序：
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
第3题：
运行下列程序：
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
第4题：
运行下列程序：
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
第5题：
运行下列程序：
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
第6题：
运行下列程序：
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.显示出错信息
第7题：
运行下列程序：
Private Sub Form_Click( )
Dim x As Integer, y As String, z As String
y = "12345"
For x = 1 To Len(y)
z = Mid(Left(y, x), 1)
Next x
Print z
End Sub
单击窗体后，则在窗体上显示的结果是( )。
A.1
B.11111
C.55555
D.12345
第8题：
运行下列程序，窗体中的显示结果是：（ ）。 OptionCompare Database Dim X AsInteger PrivateSub Form_Load x=3 EndSubPrivate Sub Commandll_click Static aAs Integer Dim b AsInteger b=x^2 funl x，b funl x．b MsgBox”x=‘’&x End Sub Subfunl(ByRef Y As Integer，ByVal z AS Integer) y=y+z z=y-z End Sub
A.x=3
B.x=2
C.x=21
D.x=12
flag函数第一个参数是ByRef传递参数，所以实参也会被改变，而第二个参数是ByVal形式传递参数，不会改变实参的值，因此经过两次调用funl函数后，X的值为21，而b的值9不会改变。
第9题：
下面程序的运行结果是在窗体中显示的：
运行后窗体上显示的是______。
2 4 6 0.5 解析：“k=3 then a=2*k”的语句其作用已经覆盖了“k=1 then a =2+k”和“k=2 then a=2-k”的语句，所以当k=1、2、3时，a分别为“a=2*k=2、4、6”。当“k=4”时，“a=2/4=0.5”。该题的难点就是关系运算符的应用。