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

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer IfX＜20 The

admin2009-02-13  62
问题 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：         Dim SW As Boolean         Function func(X As Integer)As Integer             IfX＜20 Then               Y=X             Else               Y=20+X             End lf             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 SinSle，Y As Single)             SW=True        End Sub        Prinvate 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、无任何输出
答案4
解析 当压下鼠标左键(发生MouseDown)时SW的值为False，当松开鼠标左键(触发MouseUP)时SW的值为True。
转载请注明原文地址:https://www.kaotiyun.com/show/sK2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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