Question

vb程序设计例题

任意一组数，从中找出小于偶数和的数。

Answer 1

修改好了测试成功，但是，基本上，偶数和会大于所有的数

Private Sub Command1_Click()
Dim a(10) As Double
Dim t As Double
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 100 + 2) '设十个数，给十个数随机赋值

If a(i) Mod 2 = 0 Then t = t + a(i): Print "偶数为"; a(i)
Next i

Print "偶数的和为"; t
For i = 1 To 10
If a(i) < t Then Print "小于偶数和的数"; a(i)

Next i

End Sub

Answer 2

小于偶数和的数？是什么？