怎么用vb随机生成1~10000的10000个数,在按1~1000 1001~2000 2001~3000 9001~1
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/03 08:06:23
怎么用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分类?
这样写
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
For i = 1 To 10
Print s(i),
Next
For i = 1 To 10
Print s(i) / n(k),
Next
For i = 1 To 100
Print a(i),
If i Mod 10 = 0 Then
End If
Next
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)
'粘贴以下代码
'单击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)
怎么用vb随机生成1~10000的10000个数,在按1~1000 1001~2000 2001~3000 9001~1
用VB从1-12这12个数中随机生成3个互不重复的数
vb随机数 1000 没次随机出现1个数,1000次内不出现重复的数
VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序?
vb编程 随机生成20个【1,100】以内的整数,以每行五个输出其中的奇数,并统计输出奇数的个数.
VB语言中,在固定的10个数中随机产生3个数,怎么编
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数
C语言编程 在0-10000中随机生成1000个数并输出其中的最小值.
VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数(使用数组
怎样样用VB编一个小顺序 在一个3*3 的九宫格里 按一个按键 可以随机发生1-99的随机数字
用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码
VB编程:利用随机函数Rnd()生成20个在1~100之间的各不相同的正整数,并在窗体上显