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

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

admin2009-02-10  52
问题 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：    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    Phvate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)        SW=False    End Sub    Phvate Sub Form_MouseUp(BuRon As Integer,Shin As Integer，X As Single,Y As Single)        SW=Tree    End Sub    Pdvate 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、无任何输出
答案D
解析 当鼠标指针在屏幕的某个对象上按键时，就会激发这个对象的MouseDown事件与MouseUp事件。本题中单击的是命令按钮，而不是窗体，故窗体的MouseDown事件与MouseUp事件没有被激发，所以SW为 False，因为如果定义了一个Boolean型变量，如果不对它赋值，默认就是False。所以Print func(intNum)语句没有被执行，当然也就无任何输出了。
转载请注明原文地址:https://www.kaotiyun.com/show/ed2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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