用一个一维数组a就可以解决了
奇数:ai mod 2 =1,则加1
偶数:10-i完全小白 求帮助新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码:Private Sub Command1_Click()'在text1中输入10个整数，用空格隔开Dim a As IntegerDim Even As IntegerDim Odd As IntegerEnd SubPrivate Sub Form_Click()Even = 0Odd = 0a = Split(Text1, " ")For i = 0 To UBound(a)If a(i) Mod 2 = 0 ThenEven = Even + 1ElseOdd = Odd + 1End IfNextPrint "奇数个数为:" & EvenPrint "偶数个数为:" & OddEnd SubPrivate Sub Form_Load()Text1.Text = ""End Sub当然,这只是简单的,对输入的数字没有校对提醒功能,如果你要可以自己加.