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

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

admin2012-03-22  41
问题 在窗体上画一个名称为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
解析
转载请注明原文地址:https://jikaoti.com/ti/8IO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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