在窗體中有一個命令按鈕Command1，對應的事件代碼如下： Private Sub Command1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10 num=InputBox("請輸入數據：","輸入",1) If Int(num/2)=num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox("運行結果：a="&Str(a)&：",b="&Str(b)) End Sub 運行以上事件所完成的功能是( )。

A．對輸入的10個數據求累加和

B．對輸入的10個數據求各自的余數，然后再進行累加

C．對輸入的10個數據分別統(tǒng)計有幾個是整數，有幾個是非整數

D．對輸入的10個數據分別統(tǒng)計有幾個是奇數，有幾個是偶數

D解析： 本題考查程序設計的知識。本題的重點在于判斷Int(num/2)=num/2是什么樣的條件。對于任意一個整數來說，若其除2后為整數。也就是Int(num/2)=num/2成立，說明該數是一個偶數；反之若其除2后不為整數，此時，Int(num/2)必然不等于num/2，也就是一個整數不可能等于一個小數，說明該數是一個奇數。所以本題的功能是對輸入的數據分別統(tǒng)計奇偶數的個數。