题目内容
（请给出正确答案）
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“下面程序运行时单击窗体的输出结果。Private Sub f(a%, b%)a=a+bb=a-bEnd SubPrivate Sub Form_ _Click()Dim a%, b%a=23b=12C…”相关的问题
以下程序运行时连续单击4次窗体，则第4次单击窗体后消息框中的输出结果为【 】。
PRIVATE FORM_CLICK()
STATIC A AS INTEGER
DIM B AS INTEGER
B=A+B+1
A=A+B
MSGBOX A&"," &B
END SUB
A.ZXY
B.YZX
C.YZY
D.ZYZ
PrivateSubForm_Click()
DimxAsInteger
StaticyAsInteger
x=x+2
y=y+3
Form1.Print"x=";x,"y=";y
EndSub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
阅读下列程序并写出程序运行结果。
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上的输出结果。
在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为______ 。 Private sub_command1_ click () Dim a a=array(1，2，3，4，5) For k=1 to 4 S=s+ a(k) Next k Print s End sub
A．10
B．14
C．15
D．120
PublicSubchange1(ByValxAsInteger,ByValyAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
PublicSubchange2(xAsInteger,yAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=22:b=33
change1a,b
Form. 1.Print"A1=";a,"B1=";b
a=22:b=33
change2a,b
Form1.Print"A2=";a,"B2=";b
EndSub
写出程序运行时，单击窗体Form1上的输出结果。
在窗体上有一个命令按钮，然后编写如下程序： Function Trans(ByVal num As Long) As Long Dim k As Long k=l Do While num k=k * (num Mod 10) num=num\10 Loop Trans=k Print Trans End Function Private Sub Commandl_Click() Dim m As Long Dim s As Long m=InputBox("请输入一个数") s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为【 】，在输入对 话框中输入“987”输出【 】，在输入对话框中输入“879”，输出结果为【 】。
在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：
Private Sub Commandl_Click()
a=Textl．Value+Text2．Value
MsgBox a
End Sub
Private Sub Form_Load()
TextI．Value=“”
Text2．Value=””
End Sub
程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【 】。
阅读下列程序并写出程序运行结果。
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22: b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时，单击窗体Form1上的输出结果。
下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub
A．3
B．9
C．5
D．6
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
