[單項(xiàng)選擇題] 在窗體上畫一個(gè)命令按鈕，名稱為Command1。程序運(yùn)行后，如果單擊命令按鈕，則顯示一個(gè)輸入對(duì)話框，在該對(duì)話框中輸入一個(gè)整數(shù)，并用這個(gè)整數(shù)作為實(shí)參調(diào)用函數(shù)過(guò)程F1。在F1中判斷所輸入的整數(shù)是否是奇數(shù)，如果是奇數(shù)，過(guò)程F1返回1，否則返回0。能夠正確實(shí)現(xiàn)上述功能的代碼是

A．Private Sub Command1_Click( )

x=Input Box("請(qǐng)輸入整數(shù)")

a=F1(Val(x))

Print a

End Sub

Function Fl(ByRef b As Integer)

If b Mod2=0 Then

Return0

Else

Return 1

End lf

End Function

B．Private Sub Command1_Click( )

x=Input Box(“請(qǐng)輸入整數(shù)”)

a=Fl(Val(x))

Print a

End Sub

Function Fl(ByRef b As Integer)

lf b Mod 2=0 Then

Fl=0

Else

Fl=1

End lf

End Function

C．Private　Sub Command1 Click()

x= Input Box(“請(qǐng)輸入整數(shù)”)

F1(Val(x))

Print a

Enb Sub

Function Fl(ByRef b As Integer)

If b Mod2=0 Then

Fl=1

Else

Fl=0

End lf

End Function

D．Private Sub Command1_Click( )

x=Input Box(“請(qǐng)輸入整數(shù)”)

F1(Val(x))

Print a

End Sub

Function Fl(ByRef b As Integer)

lf b Mod2=0 Then

Return 0

Else

Return1

End lf

End Function

正確答案：

B

參考解析：

B項(xiàng)是正確選項(xiàng)，"Mod"表示取模，當(dāng)b可以被2整除時(shí)，F(xiàn)1返回0，表示b為偶數(shù)時(shí)，F(xiàn)1返回0。這與題目要表達(dá)的意思一致。A、D項(xiàng)使用Return關(guān)鍵字是錯(cuò)誤的，它不能把相應(yīng)的數(shù)值賦給F1。C項(xiàng)的功能與題目要實(shí)現(xiàn)的功能恰好相反，表示輸入的數(shù)值為偶數(shù)時(shí)，F(xiàn)1返回1，故不正確。