在窗体上画一个名称为Commana1的命令按钮,然后编写如下程序: Dim SW As Boolean Function func(X As Integer)As Integer If X<20 Then Y=X Else Y=20+X End If func = Y End Function Private Sub Form. MouseDown(Button As Integer,_ Shift As Integer,X As Single, Y As Single) SW = False End Sub Private Sub Form_MouseUp( Button As Integer,_ Shift As Integer ,X As Single, Y As Single) SW = True End Sub Private Sub Commandl_Click( ) Dim intNum As Integer intNum = InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为
A.输出0
B.输出25
C.输出45
D.无任何输出
第1题:
在窗体上画一个名称为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
第2题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A.机床
B.车床
C.钻床
D.轴承
第3题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:
程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A)机床
B)车床
C)钻床
D)轴承
第4题:
在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:
程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A.
B.H
C.
D.
第5题:
在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:程序运行后,如果单击命令按钮,则在面体上显示的内容是( )。
第6题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:
运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是__________。
第7题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下程序:
Privme Sub Commandl_Click()
Dim intNum As Integer
intNum=InputBox(“请输入:”)
MsgBox f(intNum)
End Sub
Function f(X As Integer) As Integer
f=IIf (X<10,X,X+5)
End Function
运行程序,单击命令按钮,在输入对话框中输入5,则程序的输出结果为______。
第8题:
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:
程序运行后,单击命令按钮,其输出结果为__________。
第9题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Commandl_Click( )
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X, Y
End Sub
程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为【 】。