在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下程序:
Public Enums
a=4
b =3
End Enum
Private Sub Co mmand1_Click()
Di mx As Integer
x=a
If x>=3Then
MsgBox "Pass !"
End Sub
运行程序,其结果是( )。
发布于 2022-05-11 09:59:35
登录后免费查看答案
关注者
0
被浏览
9
1 个回答
推荐阅读
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Public Enum Sa=4b=3End EnumPrivate Sub Command1 Click( )Dim x As Integerx=aIf x>=3 Then MsgBox"Pass!"End Sub运行程序,其结果是( )。
2022-05-11 关注 0 浏览9 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的命令按钮,然后编写以下程序:Private Sub Co mmand1_Click()Di m M(10)As IntegerFor k =l To 10M(k)=12-kNextkx=8Print M(2+M(x))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答案
-
在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下事件过程:Private Sub Co mmand1_Click()Di ma As Integer ,s As Integera=8s =1Dos =s +aa=a-1Loop While a <=0Print s ;aEnd 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答案
-
在窗体上画一个命令按钮,其名称为Co mmand1,然后编写下列代码:Option Base 1Private Sub Co mmand1_Click()Di maa=Array(1,2,3,4)j=1For i =4To 1Step -1s =s +a(i)*jj=j*10Next iPrint SEnd Sub程序运行后,单击命令按钮,其输出结果是( )。
2022-05-11 关注 0 浏览17 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下事件过程:Private Sub Co mmand1_Click()x=InputBox("Input")Select Case x Case 1,3Print "分支1"Case Is >4Print "分支2"Case ElsePrint "Else 分支"End SelectEnd Sub程序运行后,如果在输入对话框中输入2,则窗体上显示的是( )。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名为Co mmand1的命令按钮,然后编写如下代码:Option Base 1Private Sub Co mmand1_Click()Di maa=Array(1,2,3,4)j=1For i =4To 1Step -1s =s +a(i)*jj=j*10NextiPrint SEnd Sub运行上面的程序,其输出结果是( )。
2022-05-11 关注 0 浏览9 1答案
-
设工程文件包含两个窗体文件Form1.frm、Form2.frm 及一个标准模块文件Module1.bas ,两个窗体上分别只有一个名称Co mmand1的命令按钮。Form1的代码如下:Public X As IntegerPrivate Sub Form_load()x=1y =5End SubPrivate Sub Co mmand1_Click()Form2.ShowEnd SubForm2的代码如下:Private Sub Co mmand1_Click()Print Form1.x,yEnd SubModule1的代码如下:Public y As Integer运行以上程序,单击Form1的命令按钮Co mmand1,则显示Form2;再单击Form2上的命令按钮Co mmand1,则窗体上显示的是( )。
2022-05-11 关注 0 浏览13 1答案