题目内容
（请给出正确答案）
（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
安装简答题APP，拍照搜题省时又省心！
更多“（11）运行下列程序，窗体中的显示结果是：x= 【11】 。…”相关的问题
（10）运行下列程序，输入如下两行：
Hi,
I am here．
弹出的窗体中的显示结果是 【10】 。
Private Sub Command11_Click()
Dim abc As String, sum As string
sum=""
Do
abc=InputBox("输入abc")
If Right(abc,1)="." Then Exit Do
sum=sum+abc
Loop
MsgBox sum
End Sub
运行下列程序，输入数据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
运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（）。
PrivateSub Form. click（）
Dim sumAs Integer，mAs Integersum=0
Do
m=InputBox(”输入m”)
sum= sum+m
LoopUntil m=0
MsgBoxsum
End Sub
A.0
B.17
C.20
D.21
运行下列程序，输入如下两行：
Hi，
I amhere．
弹出的窗体中的显示结果是（）。Private Sub Commandll_Click
Dim abeAs String,sum As String
sum Ⅰ””
Do
abc=InputBox(”输入abc”)
If Right(abc，1)=”．”Then Exit Do
sum=sum+abc
Loop
MsgBoxsum
End Sub
A.Hi
B.I
C.am
D.here
在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序运行结果是()。
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For k=1 To 5
t=t*k
Next k
Text1.Text=t
End Sub
A．在文本框中显示120
B．文本框中仍为空
C．在文本框中显示1
D．出错
运行下列程序，窗体中的显示结果是：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
A.TrueTrue
B.35
C.窗体无显示
D.x=3y=5
A.0
B.17
C.20
D.21
运行下列程序：
Private Sub Form_Click()
a = 32: b = 5
Do
a = a / 2
b = b + 1
Loop While b< 10
Print a
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.1
B.2
C.5
D.11
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
