Question

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

Answer 1

Private Sub Command1_Click()

Dim a() As Integer,i,j,m,n As Integer

Print "产生100个100～300之间的整数"

Randomize

For i = 1 To 100

j = Int(Rnd * 201) + 100

If j Mod 3 = 0 Then

n = n + 1

ReDim Preserve a(n)

a(n) = j

End If

Print j;

m = m + 1

If m Mod 10 = 0 Then Print

Next

Print

Print "能被3整除的数"

m = 0

For i = 1 To n

Print a(i);

m = m + 1

If m Mod 10 = 0 Then Print

j = j + a(i)

Next

Print

Print "个数="; n

Print "和="; j

End Su