怎么用vb隨機(jī)生成1~10000的10000個數(shù),在按1~1000 1001~2000 2001~3000 9001~10000分類?
怎么用vb隨機(jī)生成1~10000的10000個數(shù),在按1~1000 1001~2000 2001~3000.9001~10000分類?
這樣寫
Private Sub Command1_Click()
Cls
Dim a(100)
Dim n(10)
Dim s(10)
For i = 1 To 100
a(i) = Int(Rnd() * 100)
k = Int(a(i) / 10) + 1
n(k) = n(k) + 1
s(k) = s(k) + a(i)
Next
For i = 1 To 10
Print n(i),
Next
Print
For i = 1 To 10
Print s(i),
Next
Print
For i = 1 To 10
Print s(i) / n(k),
Next
Print
Print
For i = 1 To 100
Print a(i),
If i Mod 10 = 0 Then
Print
End If
Next
Print
Print k,s(k),n(k)
End Sub
我剛知道