怎么用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()ClsDim a(100)Dim n(10)D
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/03 14:48:27
![怎么用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()ClsDim a(100)Dim n(10)D](/uploads/image/z/3147313-49-3.jpg?t=%E6%80%8E%E4%B9%88%E7%94%A8vb%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%901%7E10000%E7%9A%8410000%E4%B8%AA%E6%95%B0%2C%E5%9C%A8%E6%8C%891%7E1000+1001%7E2000+2001%7E3000+9001%7E10000%E5%88%86%E7%B1%BB%3F%E6%80%8E%E4%B9%88%E7%94%A8vb%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%901%7E10000%E7%9A%8410000%E4%B8%AA%E6%95%B0%2C%E5%9C%A8%E6%8C%891%7E1000+1001%7E2000+2001%7E3000.9001%7E10000%E5%88%86%E7%B1%BB%3F%E8%BF%99%E6%A0%B7%E5%86%99Private+Sub+Command1_Click%28%29ClsDim+a%28100%29Dim+n%2810%29D)
怎么用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()ClsDim a(100)Dim n(10)D
怎么用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()ClsDim a(100)Dim n(10)D
'在窗体上画两个列表框(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)