VB中用随机数函数产生100个100～300之间的整数,在窗体上输出能被3 整除的数的和及个数.求代码啊...

Private Sub Command1_Click()Dim a() As Integer,i,j,m,n As IntegerPrint "产生100个100～300之间的整数"RandomizeFor i = 1 To 100j = Int(Rnd * 201) + 100If j Mod 3 = 0 Thenn = n + 1ReDim Preserve a(n)a(n)...