[單項選擇題] 在窗體中添加一個命令按鈕、一個標簽和一個文本框，并將文本框的Text屬性置空，編寫命令按鈕Command1的Click事件代碼：

Private Function fun(x As Long)As Boolean

If x Mod 2=0 Then

fun=True

Else

fun=False

End If

End Function

Private Sub Command1_Click()

Dim n As Long

n=Val(Text1.Text)

p=IIf(fun(n),"奇數(shù)","偶數(shù)")

Label1.Caption=n & "是一個"& p

End Sub

程序運行后，在文本框中輸入20，單擊命令按鈕后，標簽中的內(nèi)容為( )。

A．20是一個奇數(shù)

B．20

C．20是一個偶數(shù)

D．2

A

本題考查函數(shù)調(diào)用以及IIf函數(shù)。IIf函數(shù)可用于執(zhí)行簡單的條件判斷操作，其格式為result=IIf(＜條件＞，＜True部分＞，＜False部分＞)，其中“result”是函數(shù)的返回值，“條件”是一個邏輯表達式。當“條件”為真時，IIf函數(shù)返回“True部分”的值，而當“條件”為假時返回“False部分”的值?！癟rue部分”或“False部分”可以是表達式、變量或其他函數(shù)。函數(shù)fun(n)的功能是判斷n是否為偶數(shù)，是偶數(shù)則返回True，否則返回False。輸入20時，fun返回True，則Command1的單擊事件中IIf語句得到“奇數(shù)”。