[單項(xiàng)選擇題] 在窗體中添加一個(gè)命令按鈕、一個(gè)標(biāo)簽和一個(gè)文本框，并將文本框的Text屬性置空，編寫(xiě)命令按鈕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 & "是一個(gè)"& p

End Sub

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

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

B．20

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

D．2

A

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