举报
乖乖猪脑壳
Option Explicit Private Sub Command1_Click() Dim s As String: s = Text1.Text Dim i As Integer, j As Integer Dim p As Integer, q As Integer Dim a() As String: ReDim a(0) For i = 1 To Len(s) If Mid(s, i, 1) = " " Then j = j + 1 ReDim Preserve a(j) Else a(j) = a(j) & Mid(s, i, 1) End If Next For i = 0 To j If a(i) Mod 2 = 0 Then p = p + 1 Else q = q + 1 End If Next MsgBox "奇数有" & q & "个,偶数有" & p & "个", vbOKOnly, "结果" End Sub