求一道简单编程题的代码（要求用SUb子过程）！

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:21:59
题目：随机产生5个一维数组，用此数组作参数，求数组中所有偶数之和

谢谢哦
刚才提问过，可是得要SUb过程，没法啊，还得再请教一次！
估计不合题意！ 要是再求另一个数组哩！ 咋弄

这是你的代码
Sub GC() 'GC为过程 改这地方就可以了
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
Print "所有偶数之和:" & sum
End Sub
下面是最佳答案的代码:
Sub GC()
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

这个不知道合不合你要求，但是也算是个伪sub吧

Private Sub he()
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

Private Sub Command1_Click()
Call he
End Sub