窗体中有命令按钮Commandl,事件过程如下:
PublicFunction f(x As Integer)As Integer
Dim Y AsInteger
X=20
y=2
f= X *Y
End Function
PrivateSub Commandl_Click( )
Dim y As Integer
static x As Integer
x=10
y=5
y=f(x)
Debug.Print x;y
End Sub
运行程序,单击命令按钮,则立即窗口中显示的内容是( )
发布于 2022-05-13 21:28:50
登录后免费查看答案
关注者
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答案
-
设有如下通用过程: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答案
-
标准模块中有如下程序代码:Public x As Integer,y As IntegerSub var_pub()x=10:y=20End Sub在窗体上有1个命令按钮,并有如下事件过程:Private Sub Command1_Click()Dim x As IntegerCall var_pubx=x+100y=y+100Print x;yEnd Sub运行程序后单击命令按钮,窗体上显示的是
2022-05-11 关注 0 浏览14 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 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答案
-
设有如下程序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答案
-
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为
2022-05-11 关注 0 浏览13 1答案
-
单击命令按钮时,下列程序段的执行结果是( )。Private Sub Commandl Click()Di ma As Integer ,b As Integer ,c As Integera=2:b =4:c =6Call Sl(a,b)Print "a=";a;"b =";b ;"c =";cCall S2(a,b)Print "a=";a;"b =";b ;"c =";c ;End SubPrivate Sub S1(x As Integer ,Y As Integer)Di mc As Integerx=2*x:y =y +2:c =x+yEnd SubSub S2(x As Integer ,ByVal Y As Integer)Di me As Integer x=2*x:Y =Y +2:e =x+yEnd Sub
2022-05-11 关注 0 浏览31 1答案
-
单击命令按钮时,下列程序段的执行结果是( )。Private Sub Command1 Click( )Dim a As Integer,b As Integer,C As Integera=2:b=4:c=6Call S1(a.b)Print"a=";a;"b=";b;"c=";cCall S2(a,b)Print"a=";a;"b=";b;"c=";c;End SubPrivate Sub S1(X.As Integer,Y As Integer)Dim C As Integerx=2*X:y=y+2:c=x+yEnd SubSub S2(x As Integer,ByVal Y As Integer)Dim e As Integerx=2*x:Y=Y+2:e=x+yEnd Sub
2022-05-11 关注 0 浏览27 1答案