怎么用vb随机生成1~10000的10000个数,在按1~1000 1001~2000 2001~3000 9001~1

学习时间:2026-04-04 20:01:34 阅读：1884

怎么用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)Dim s(10)For i = 1 To 100a(i) = Int(Rnd() * 100)k = Int(a(i) / 10) + 1n(k) = n(k) + 1s(k) = s(k) + a(i)NextFor i = 1 To 10Print n(i),NextPrintFor i = 1 To 10Print s(i),NextPrintFor i = 1 To 10Print s(i) / n(k),NextPrintPrintFor i = 1 To 100Print a(i),If i Mod 10 = 0 ThenPrintEnd IfNextPrintPrint k,s(k),n(k)End Sub我刚知道

提问回复

最佳回答

快乐的魔镜

2026-04-04 20:01:34



'在窗体上画两个列表框(ListBox),一个按钮(CommandButton)'粘贴以下代码'单击List1里的范围,在List2里列出该分类的所有数据Dim Num(1 To 10000) As IntegerPrivate Sub Command1_Click()List1。ClearList2。ClearOn Error Resume NextFor i = 1 To 10000RandomizeNum(i) = Int(10000 * Rnd)NextFor i = 0 To 9List1。AddItem i * 1000 + 1 & " & (i + 1) * 1000NextFor i = 1 To 10000If Num(i) >= 1 And Num(i) = List1。ListIndex * 1000 + 1 And Num(i)

怎么用vb随机生成1~10000的10000个数,在按1~1000 1001~2000 2001~3000 9001~1

最佳回答

最新回答共有2条回答

精明的自行车

热门文章

猜你喜欢