怎麼用vb隨機生成1~10000的10000個數，在按1~1000 1001~2000 2001~3000 9001~10000分類？ 怎麼用vb隨機生成1~10000的10000個數，在按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 我剛知道

怎麼用vb隨機生成1~10000的10000個數，在按1~1000 1001~2000 2001~3000 9001~10000分類？ 怎麼用vb隨機生成1~10000的10000個數，在按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 我剛知道

'在表單上畫兩個清單方塊（ListBox），一個按鈕（CommandButton）
'粘貼以下程式碼
'按一下List1裏的範圍，在List2裏列出該分類的所有數據
Dim Num（1 To 10000）As Integer
Private Sub Command1_Click（）
List1.Clear
List2.Clear
On Error Resume Next
For i = 1 To 10000
Randomize
Num（i）= Int（10000 * Rnd）
Next
For i = 0 To 9
List1.AddItem i * 1000 + 1 &“&（i + 1）* 1000
Next
For i = 1 To 10000
If Num（i）>= 1 And Num（i）= List1.ListIndex * 1000 + 1 And Num（i）