题目内容
（请给出正确答案）
阅读下列程序并写出程序运行结果。
Private Sub Command1_Click()
x = 0
Do While x ＜ 60
x = (x + 3) * (x + 4)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
写出程序运行后，文件框Text3的结果。
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“阅读下列程序并写出程序运行结果。Private Sub Command1_Click()x = 0Do While x ＜ 60x = (x + ”相关的问题
x=0
DoWhilex<60
x=(x+3)*(x+4)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
EndSub
写出程序运行后，文件框Text3的结果。
A、y Mod m = 0 And y Mod n = 0
B、m Mod y = 0 And n Mod y = 0
C、m Mod y = 0 or n Mod y = 0
D、y Mod m = 0 or y Mod n = 0
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = y + 3
Form1.Print "x="; x, "y="; y
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
A、println方法中参数类型错误，该方法只能接受字符串类型数据
B、子类中重复定义变量a
C、Second类不能继承First类
D、关键字final不能修饰First类
Private Sub Commandl_Click()
Dim x As Integer
x=InputBox("请输入x的值")
Select Case x
Case 1,2,4,6
Debug.Print"A"
Case 5,7 To 9
Debug.Print"B"
Case Is=10
Debug.Print"C"
CaSe ElSe
Debug.Print"D"
End Select
End Sub
程序执行后单击命令按钮，在弹出的输入框中输入8，则立即窗口上显示( )。
A．A B．B C．C D．D
PriVate Sub Coranland1_Click()
For i=1 To 4
x=3
For j=2 To 3
x=3
For k=1 To 2
x=x+2
Next k
Next j
Next i
MsgBox x
End Sub
窗体运行后，单击命令按钮，消息框输出的结果是______。
DimxAsInteger
StaticyAsInteger
x=x+2
y=y+3
Form1.Print"x=";x,"y=";y
EndSub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
