VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.

VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.
VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.

VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.
给个最简单的示例你
x=0:y=0
for i=1 to 10
a=inputbox("请输入一个任意整数!","提示")
if a="" then
msgbox "你至少输入一个数!","提示":i=i-1
else
if (a mod 2)=0 then
x=x+1
else
y=y+1
end if
end if
next
msgbox "偶为:" & x & vbcrlf & "奇数为:" & y