用vb算1至100内所有偶数，所有奇数，所有数的和

所有偶数 所有奇数 所有数这三项是combo组合框里的项目，点击窗体上的读数据按钮即读取100个整数至数组a()中，然后点击计算按钮根据组合框里具体项目算平均值，求计算按钮的事件过程，万分感谢！

---

Private Sub Form_Click()
Dim ou%, ji%, all%
For i = 1 To 100
If i Mod 2 = 0 Then '判断是嫌袜段不是偶数芹誉
ou = ou + i '如果是偶数就累加在ou上
Else
ji = ji + i '奇数累加在ji上
End If
all = all + i
Next
Print "偶数和：" & ou
Print "奇数好启和：" & ji
Print "所有数和：" & all
End Sub

---

给你个偶数的例子，其他的就改改IF就扰磨运可以了
for 1=1 to 100
a(i)=i
if i/2=0
then s=s+i
next i
print s
奇数的写if i/2<>0，其他的一样缓梁的，全部数字的不写 if那一行就可游顷以了

---