2. 计算机
  3. 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Dim SW As Boolean Function func(X As Integer)As Integer If X

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Dim SW As Boolean Function func(X As Integer)As Integer If X

admin2010-11-20  70
问题 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
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 Command1_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、无任何输出
答案C
解析 本题考查的是鼠标事件,当压下鼠标左键(发生MouseDown时),SW的值为False,当松开鼠标左键(触发MouseUp时),SW的值为True。
转载请注明原文地址:https://kaotiyun.com/show/Uvmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)