在窗體中有一個命令按鈕Command1，對應(yīng)的事件代碼如下： 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("請輸入數(shù)據(jù)：","輸入",1) If Int(num/2)=num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox("運行結(jié)果：a="&Str(a)&：",b="&Str(b)) End Sub 運行以上事件所完成的功能是( )。

A．對輸入的10個數(shù)據(jù)求累加和

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

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

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

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