设有如下通用过程:
Public Function f(x As Integer)
Di my As Integer
x=20
y =2
f =x*y
End Function
在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下事件过程:
Private Sub Co mmand1_Click()
Static x As Integer
x=10
y =5
y =f(x)
Print x;y
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
发布于 2022-05-11 09:56:14
登录后免费查看答案
关注者
0
被浏览
11
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答案
-
窗体中有命令按钮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答案
-
在窗体上画一个名称为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答案
-
标准模块中有如下程序代码: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答案
-
在窗体上画一个名称为Co mmand1的命令按钮,再画两个名称分别为Labell、Label2的标签,然后编写如下程序代码:Private X As IntegerPrivate Sub Co mmand1_Click()X=5:Y =3Call proc(x,y)Labell .Caption =xLabel2.Caption =yEnd SubPrivate Sub proc(a As Integer ,ByVal b As Integer)X=a*aY =b +bEnd Sub程序运行后,单击命令按钮,则两个标签中显示的内容分别是( )。
2022-05-11 关注 0 浏览11 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答案
-
在窗体上画一个命令按钮(名称为Co mmand1),并编写下列代码:Function Funl (ByVal a As Integer ,b As Integer)As IntegerDi mt As Integer t =a-bb =t +aFunl =t +bEnd FunctionPrivate Sub Co mmand1_Click()Di mx As Integerx=10Print Funl(Funl(x,(Funl(x,x-1))),x-1)End Sub程序运行后,单击命令按钮,输出结果是( )。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下程序:Di mSW As BooleanFunction func(X As Integer)As IntegerIf X<20ThenY =XElseY =20+XEnd Iffunc =YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer ,_Shift As Integer ,X As Si ngle ,Y As Si ngle)SW=FalseEnd SubPrivate Sub Form_Mouse Up(Button As Integer ,_Shift As Integer ,X As Si ngle ,Y As Si ngle)SW=TrueEnd SubPrivate Sub Co mmand1_Click()Di mi nt Num As Integeri nt Num=InputBox("")If SW ThenPrint func(i nt Num)End IfEnd Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为( )。
2022-05-11 关注 0 浏览10 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后,单击命令按钮,窗体上显示的是
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后,连续三次单击Command1按钮后,窗体上显示的是
2022-05-11 关注 0 浏览16 1答案