在窗体上添加一个名为Command1的命令按钮,然后编写如下程序:
Function m(x As Integer, y As Integer) As Integer
m=IIf(x>y,x,y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=1
b=2
MsgBox m(a,b)
End Sub
打开窗体运行后,单击命令按钮,消息框中输出结果为【 】。
第1题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_ Click() Static x As Integer Static y As Integer Cls y=1 y=y+5 x=y +x Print x, yEnd Sub程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为______。
A.15 16
B.15 6
C.15 15
D.5 6
第2题:
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:
Private Sub Command1_Cliek
Dim b, k
For k = 1 to 6
b=23+k
Next k
MsgBox b + k
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是【 】。
第3题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
x = -5
If Sgn(x) Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
Print y
End Sub
程序运行后,单击命令按钮,窗体上显示的是( )。
A.-5
B.25
C.1
D.-1
第4题:
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:
打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。
第5题:
在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:
Function m(x as Integer,y as Integer) as Integer
m=IIf(x>y,x,y)
End Function
Private Sub Commandl Click()
Dim a as Integer,b as Integer
a=1
b=2
MsgBox m(a,B)
End Sub
打开窗体运行后,单击命令按钮,消息框的输出结果为【 】。