vb的一道题：随机整数排列输出并求其中能被3或7整除的个数

来源：百度知道 编辑：UC知道 时间：2024/06/09 17:06:01
具体题目是：产生50个[5,500]之间的随机整数，每10个一行输出到窗体上，并求出这50个数中能被3或7整除的数的个数，输出到窗体上。
本人是替正在学vb的妹妹求问的，自己一点不会，请达人帮个小忙吧！

Private Sub Form_Load()
Dim a(50) As Integer, n As Integer
Show
Randomize
For i = 1 To 50
a(i) = Int(496 * Rnd + 50)
s = a(i) Mod 3
t = a(i) Mod 7
If s = 0 Or t = 0 Then
n = n + 1
End If
Next i
For i = 1 To 50
Print a(i);
If i Mod 10 = 0 Then
Print
End If
Next i
Print "能被3或7整除的个数;"; n
End Sub
如果满意的话，就给加几分吧，谢谢啦............................