[單項(xiàng)選擇題] 在窗體上畫一個(gè)名稱為Coramandl的命令按鈕，然后編寫如下程序；

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)

Dim a As Boolean

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 flmc(intNum)

End If

End Sub

程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)輸入對話框，如果在對話框中輸入25，則程序的執(zhí)行結(jié)果為

A．輸出0

B．輸出2

C．輸出45

D．無任何輸出

正確答案：

D解析：[分析]： 上述程序由一個(gè)通用過程和3個(gè)事件過程組成，在命令按鈕事件過程中調(diào)用通用過程，并把一個(gè)參數(shù)傳送給通用過程。這里要注意，只有在一定的條件下，才能調(diào)用通用過程，這個(gè)條件就是，窗體層的Boolean變量SW的值必須為True，否則不能調(diào)用。而為了使SW的值為True，必須執(zhí)行Form_MouseUp事件過程，這只能通過單擊窗體來實(shí)現(xiàn)。單擊窗體時(shí)，單擊鼠標(biāo)左鍵執(zhí)行Form_MouseDown事件過程，使得SW=False。松開鼠標(biāo)后執(zhí)行Form_MouseUp事件過程，使得SW=True。程序運(yùn)