2011年全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試答題技巧 3

例3、（2002年09月考題）在窗體上畫(huà)一個(gè)命令按鈕，名稱(chēng)為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，否則返回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)記為灰色背景的四條語(yǔ)句可以看出，除選項(xiàng)C最先返回值1外，其它都返回0，所以C錯(cuò)。一般情況下，錯(cuò)誤的選項(xiàng)中也會(huì)包含正確的信息，從中我們發(fā)現(xiàn)這四行文本主要考查函數(shù)返回值的基本寫(xiě)法，并據(jù)此可以馬上得以答案B。