运行下列程序，窗体中的显示结果是：（ ）。OptionCompare DatabaseDim X AsIntegerPrivateSub Form_Loadx=3EndSubPrivate Sub Commandll_clickStatic aAs IntegerDim b AsIntegerb=x^2funl x，bfunl x．bMsgBox”x=‘’&xEnd SubSubfunl(ByRef Y As Integer，ByVal z AS Integer)y=y+zz=y-zEnd SubA.x=
题目
运行下列程序，窗体中的显示结果是：（ ）。
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
相似考题
更多“运行下列程序,窗体中的显示结果是:( )。 OptionCompare DatabaseDim X AsIntegerPrivateSub Form ”相关问题
-
第1题：
在程序运行时，下面的叙述中正确的是（ ）。
A.用鼠标右键单击窗体中任何无控件部分，会执行窗体的Form—Load事件过程
B.用鼠标左键单击窗体的标题栏，会执行窗体的Form—Click事件过程
C.只装入而不显示窗体，也会执行窗体的Form—Load事件过程
D.装入窗体后，每次显示该窗体时，都会执行窗体的Form—Click事件过程
正确答案：C
C。【解析】Form_Load事件只在显示窗体时发生。 -
第2题：
下面程序的运行结果是在窗体中显示的：
运行后窗体上显示的是______。
正确答案：2 4 6 0.5
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”。该题的难点就是关系运算符的应用。 -
第3题：
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x运行下列程序：
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
正确答案：B
-
第4题：
运行下列程序，输入数据8、9、3、0后，窗体中显示结果是( )。
Prirate Sub．Form_click()
Dim sum As Integer,m As Integer
sum=0
Do
m=inputBox(“输入m”)
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub
A．0
B．17
C．20
D．21
正确答案：C
解析：Do Loop Unit是直到型循环语句，此处m=0即为终止条件，所以结果应为8+9+3的值。 -
第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.显示出错信息
正确答案：C
-
第6题：
在多重窗体程序中，假设Form1为启动窗体，若要显示Form2窗体，应使用语句Form2.Show（)。
正确