单选题
标准模块中有如下程序代码：
标准模块中有如下程序代码：
Public x As Integer,y As Integer
Sub var_pub()
x=10:y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Call var_pub
x=x+100
y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是
发布于 2022-05-11 10:20:55
登录后免费查看答案
关注者
0
被浏览
14
1 个回答
推荐阅读
-
在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是
2022-05-11 关注 0 浏览17 1答案
-
单击按钮时，以下程序运行后的输出结果是Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx=1: y=2: z=3Call God(x, x, z)Print x; x; zCall God(x, y, y)Print x; y; yEnd SubPrivate Sub God(x As Integer, y As Integer, z As Integer)x=3 * z + 1y=2 * zz=x + yEnd Sub
2022-05-11 关注 0 浏览88 1答案
-
单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click()Dim x As Integer, y As Integerx=50: y=78Call PPP(x, y)Print x; yEnd SubPublic Sub PPP(ByVal n As Integer, ByVal m As Integer)n=n ＼ 10m=m ＼ 10End Sub
2022-05-11 关注 0 浏览13 1答案
-
设有如下程序Private Sub Form_Click()Dim a As Integer, b As Integera = 20: b = 50p1 a, bp2 a, bp3 a, bPrint "a="; a, "b="; bEnd SubSub p1(x As Integer, ByVal y As Integer)x = x + 10y = y + 20End SubSub p2(ByVal x As Integer, y As Integer)x = x + 10y = y + 20End SubSub p3(ByVal x As Integer, ByVal y As Integer)x = x + 10y = y + 20End Sub该程序运行后，单击窗体，则在窗体上显示的内容是：a = ______ 和 b = ______ 。
2022-05-11 关注 0 浏览14 1答案
-
单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click()Dim x As Integer, y As Integerx=12: y=32Call PCS(x, y)Print x; yEnd SubPublic Sub PCS(ByVal n As Integer, ByVal m As Integer)n=n Mod 10m=m Mod 10End Sub
2022-05-11 关注 0 浏览18 1答案
-
单击按钮时，以下程序运行后的输出结果是Private Sub proc1(x As Integer, y As Integer, z As Integer)x=3 * zy=2 * zz=x + yEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx=1: y=2: z=3Call proc1(x, x, z)Print x; x; zCall proc1(x, y, y)Print x; y; yEnd Sub
2022-05-11 关注 0 浏览54 1答案
-
窗体中有命令按钮Commandl，事件过程如下：PublicFunction f(x As Integer)As IntegerDim Y AsIntegerX=20y=2f= X *YEnd FunctionPrivateSub Commandl_Click（ ）Dim y As Integerstatic x As Integerx=10y=5y=f(x)Debug.Print x;yEnd Sub运行程序，单击命令按钮，则立即窗口中显示的内容是（ ）
2022-05-13 关注 0 浏览14 1答案
-
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Function M(x As Integer,y As Integer)As IntegerM=IIf(x>y,x,y)End FunctionPrivate Sub command1_Click()Dim a As Integer,b As Integera=100b=200Print M(a,b)End Sub 程序运行后，单击命令按钮，输出结果为______ 。
2022-05-11 关注 0 浏览19 1答案
-
设有如下通用过程：Public Function f（x As Integer）Di my As Integerx＝20y ＝2f ＝x＊yEnd Function在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Static x As Integerx＝10y ＝5y ＝f（x）Print x；yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl Click（ ）Dim X As Integer，Y As Integerx=12：y=32 Call Proc(x，Y)Debug．Print X；YEnd SubPublic Sub proc(n As Integer，ByVal in As Integer)n=n Mod 10m=m Mod 1OEnd Sub打开窗体运行后，单击命令按钮，立即窗口上输出的结果是（ ）。
2022-05-13 关注 0 浏览16 1答案
