用VB程序编写，求奇数和或者偶数和。

Private Sub Command1_Click()
Dim x As Long, y As Long, sumX As Long, sumY As Long
x = Val(InputBox("输入奇数范围"))
y = Val(InputBox("输入偶数范围"))
For i = 1 To x Step 2
sumX = sumX + i
Next

For i = 2 To y Step 2
sumY = sumY + i
Next

Print "奇数和为：" & sumX
Print "偶数和为：" & sumY
End Sub

是随机生成的吧？这样写：
dim i as integer,s1 as integer,s2 as integer
randomize
for i=1 to 100‘生成100个100以内的数
if int(rnd*100) mod 2=0 then
s2=s2+1
else
s1=s1+1
end if
print "奇数和";s1
print "偶数和";s2

题目不说清楚怎么弄啊？
首先数据规模是什么，初始数据是什么
然后程序的性能要求是什么
全都不说
而且按照编程规则，能用数学解决的问题就不要用程序去解决