问题
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Dim SW As Boolean
Function func(X As Inleger)As Integer
If X＜20 Then
Y=X
Else
Y=20+X
End If
func=Y
End Function
Private Sub Command1_Click()
Dim intNuln As Integer
intNum=InputBox("")
If SW Then
Print func(intNum)
End If
End Sub
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_
Intege,X As Single,Y As Single)
SW=True
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是( )。
A．输出0
B．输出25
C．输出45
D．无任何输出
答案
参考答案：D
解析： 本题考查VB程序的执行特点。程序执行时，布尔行变量SW默认为False，单击命令按钮后弹出对话框，在该对话框中输入25之后，始终没有在窗体上单击鼠标，因而没有改变SW的值，所以没有进行fun函数过程的调用，也就无任何输出。
