题目内容（请给出正确答案）

[主观题]

下面程序运行时单击窗体的输出结果。Private Sub f(a%, b%)a=a+bb=a-bEnd SubPrivate Sub Form_ _Click()Dim a%, b%a=23b=12Call f(a, b)Print"a=" &a;",b=" & bEnd Sub

提问人：网友文旻昊 发布时间：2022-09-21

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“下面程序运行时单击窗体的输出结果。Private Sub f…”相关的问题

第1题

以下程序运行时连续单击4次窗体，则第4次单击窗体后消息框中的输出结果为【】。PRIVATE FORM_CLICK（

以下程序运行时连续单击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

点击查看答案

第2题

下面程序运行时用鼠标左键单击窗体，输出的值是()Privatesubform_click()l$="x+":m$="y":n$="z"forj=1to2l$=m$:m$=n$:n$=l$nextjPrintl$+m$+n$endsub

A.ZXY

B.YZX

C.YZY

D.ZYZ

点击查看答案

第3题

PrivateSubForm_Click()DimxAsIntegerStaticyAsIntegerx=x+2y=y+3Form1.Print"x=";x

PrivateSubForm_Click（)DimxAsIntegerStaticyAsIntegerx=x+2y=y+3Form1.Print"x=";x

PrivateSubForm_Click()

DimxAsInteger

StaticyAsInteger

x=x+2

y=y+3

Form1.Print"x=";x,"y=";y

EndSub

写出程序运行时连续单击三次窗体后，Form1上的输出结果。

点击查看答案

第4题

阅读下列程序并写出程序运行结果。Private Sub Form_Click()Dim x As IntegerStatic y As Integ

阅读下列程序并写出程序运行结果。Private Sub Form_Click（)Dim x As IntegerStatic y As Integ

阅读下列程序并写出程序运行结果。

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上的输出结果。

点击查看答案

第5题

在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为______ 。Priv

在窗体上添加一个命令按纽，名为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

点击查看答案

第6题

PublicSubchange1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSubPublicSubch

PublicSubchange1（ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSubPublicSubch

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上的输出结果。

点击查看答案

第7题

在窗体上有一个命令按钮，然后编写如下程序： Function Trans（ByVal num As Long) As Long D

在窗体上有一个命令按钮，然后编写如下程序： 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”，输出结果为【】。

点击查看答案

第8题

在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：Private Su

在窗体中有两个文本框分别为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，单击命令按钮，消息框中输出的结果为【】。

点击查看答案

第9题

阅读下列程序并写出程序运行结果。Public Sub change1(ByVal x As Integer, ByVal y As Integer

阅读下列程序并写出程序运行结果。Public Sub change1（ByVal x As Integer, ByVal y As Integer

阅读下列程序并写出程序运行结果。

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上的输出结果。

点击查看答案

第10题

下面程序运行时，单击窗体后，窗体上显示的结果是（)。Private Sub Form_ClickDim I As IntegerDim s

下面程序运行时，单击窗体后，窗体上显示的结果是()。 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

点击查看答案