例3、(2002年09月考題)在窗體上畫一個(gè)命令按鈕，名稱為Command1。程序運(yùn)行后，如果單擊命令按鈕，則顯示一個(gè)輸入對(duì)話框，在該對(duì)話框中輸入一個(gè)整數(shù)，并用這個(gè)整數(shù)作為實(shí)參調(diào)用函數(shù)過程F1。在F1中判斷所輸入的整數(shù)是否是奇數(shù)，如果是奇數(shù)，過程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 Function

　　B) 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 Function

　　C) 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 Function

　　D) 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

　　【分析】從四個(gè)選項(xiàng)中的已標(biāo)記為灰色背景的四條語句可以看出，除選項(xiàng)C最先返回值1外，其它都返回0，所以C錯(cuò)。一般情況下，錯(cuò)誤的選項(xiàng)中也會(huì)包含正確的信息，從中我們發(fā)現(xiàn)這四行文本主要考查函數(shù)返回值的基本寫法，并據(jù)此可以馬上得以答案B。