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

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

admin2013-04-11  37
问题 在窗体上画一个名称为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、无任何输出
答案4
解析 本题考查的是鼠标事件，当压下鼠标左键(发生MouseDown时)SW的值为False，当松开鼠标左键(触发MouseUp时)SW的值为True。
转载请注明原文地址:https://kaotiyun.com/show/Eehp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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