在窗體上畫(huà)一個(gè)命令按鈕，命名為Command1。程序運(yùn)行后，如果單擊命令按鈕，則顯示一個(gè)輸入對(duì)話(huà)框，在該對(duì)話(huà)框中輸入一個(gè)整數(shù)，并用這個(gè)整數(shù)作為實(shí)參調(diào)用函數(shù)過(guò)程F1，在F1中判斷所輸入的整數(shù)是否是奇數(shù)，如果是奇數(shù)，過(guò)程F1返回1，否則F1返回1，否則返回0。能夠正確實(shí)現(xiàn)上述功能的代碼是 。A．Private Sub Command1_Click() x=InputBox("請(qǐng)輸入整數(shù)") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("請(qǐng)輸入整數(shù)") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("請(qǐng)輸入整數(shù)") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("請(qǐng)輸入整數(shù)") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function

B【解析】本題綜合考查了InputBox函數(shù)、塊結(jié)構(gòu)條件語(yǔ)句、Function函數(shù)過(guò)程等多個(gè)知識(shí)點(diǎn)。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，故不正確。