Dim a(10) As Integer, sum As Integersum = 0For i = 1 To 10 Randomize a(i) = Int(Rnd * 100)Next iFor i = 1 To 10 If a(i) Mod 3 <> 0 Then sum = sum + a(i) End IfNext i求采纳
