vb编程题，用rnd函数产生10个100以内的随机数,求这10个数中不能被3整除的数之和

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

求采纳

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vvveyyer3xy3eyrexrx.html