求一道简单编程题的代码！

Private Sub Command1_Click()
Dim a(1 To 5) As Integer
Dim sum As Integer
For i = 1 To 5
Randomize
a(i) = Int(Rnd() * 100) + 1 '产生1 到100 之间的数字
If a(i) Mod 2 = 0 Then sum = sum + a(i)
Print a(i)
Next i

Print "和是" & sum

End Sub

dim a(1 to 5) as integer
dim sum as integer
for i=1 to 5
randmize()
a(i)=int(rnd*99)+1
next i
for each x in a
if x mod 2 =0 then sum=sum+x
next
debug.print sum

dim s,a(5)
s=0
for(i=1 to 5)
{
a(i)=rand() \\取随机数
if mod(a(i),2)=0 \\求余,判断是不是偶数
{s=s+a(i)}

}
print "所有偶数之和:&s"

好久没用VB了.很多函数格式都不记得了.大概思路是这样的.你参考一下

修改你的代码
Private Sub Form_Load()
Dim sum, a(5)
sum = 0
For i = 1 To 5
a(i) = Int(91 * Rnd + 10) '取随机数
If a(i) Mod 2 = 0 Then '求余,判断是不是偶数
sum = sum + a(i)
end if '少了
Next i