VB在一组数中随机抽5个数要求不能重复
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/25 15:27:36
VB在一组数中随机抽5个数要求不能重复
我有一组由30个数组成的数组,要求随机抽取5个数为一组共6组,每一组和组与组间不能重复
如:1,8,7,9,10
2,5,11,6,12
4,30,24,21,22
13,15,16,19,29
3,14,17,18,27
25,20,28,23,26
不知道如何用VB编写代码,请高手发个代码可以吗
我有一组由30个数组成的数组,要求随机抽取5个数为一组共6组,每一组和组与组间不能重复
如:1,8,7,9,10
2,5,11,6,12
4,30,24,21,22
13,15,16,19,29
3,14,17,18,27
25,20,28,23,26
不知道如何用VB编写代码,请高手发个代码可以吗
'可以用集合对象来操作,每抽取一个数时,就把该项移除掉.这样就可以保证每个数只抽取一次.
'当然如果你提供的这系列数中本身有重复的数的话,那避免不了有重复的数了.
Private Sub Command1_Click()
Dim a
a = Array(1, 8, 7, 9, 10, 2, 5, 11, 6, 12, 4, 30, 24, 21, 22, 13, 15, 16, 19, 29, 3, 14, 17, 18, 27, 25, 20, 28, 23, 26)
Dim item
Dim col As New Collection
For Each item In a
col.Add item
Next
'把数组中的数加入集合对象
'--------------------------------
Dim Index As Integer
Dim i As Integer
Dim strLine As String
For i = 1 To col.Count '每循环抽取一数
Index = Int(col.Count * Rnd + 1) '获取随机下标量
strLine = strLine & "," & col.item(Index) '将下标元素追加到strLine
col.Remove (Index) '移除该下标元素
If i Mod 5 = 0 Then Debug.Print Mid(strLine, 2): strLine = "" 'i被5整除时输出一行, 改变 5 可改变每行的项目数
Next
If strLine <> "" Then Debug.Print Mid(strLine, 2) '如有残留的不完全行也输出
End Su
'当然如果你提供的这系列数中本身有重复的数的话,那避免不了有重复的数了.
Private Sub Command1_Click()
Dim a
a = Array(1, 8, 7, 9, 10, 2, 5, 11, 6, 12, 4, 30, 24, 21, 22, 13, 15, 16, 19, 29, 3, 14, 17, 18, 27, 25, 20, 28, 23, 26)
Dim item
Dim col As New Collection
For Each item In a
col.Add item
Next
'把数组中的数加入集合对象
'--------------------------------
Dim Index As Integer
Dim i As Integer
Dim strLine As String
For i = 1 To col.Count '每循环抽取一数
Index = Int(col.Count * Rnd + 1) '获取随机下标量
strLine = strLine & "," & col.item(Index) '将下标元素追加到strLine
col.Remove (Index) '移除该下标元素
If i Mod 5 = 0 Then Debug.Print Mid(strLine, 2): strLine = "" 'i被5整除时输出一行, 改变 5 可改变每行的项目数
Next
If strLine <> "" Then Debug.Print Mid(strLine, 2) '如有残留的不完全行也输出
End Su
用VB从1-12这12个数中随机生成3个互不重复的数
vb随机数 1000 没次随机出现1个数,1000次内不出现重复的数
从33个数中随便挑出6个数组成一组数.同一组里不能重复.一共有多少种组合方式?是如何计算的?
关于VB中从 1到35随即产生5个数,要求有些数不能同同时出现的问题,写完后每次都是运算卡死,
VB语言中,在固定的10个数中随机产生3个数,怎么编
从1到11随机抽取五个数(不可重复),然后再从这个5个数中抽取不重复的两个数,概率是多少呢
0-9任取5个数作为一组,要求任意两组最多只能有2个数是重复的,一共取12组,列出12组数
VB编程题目单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和
在空格内填上适当的数,使得每行、每列的3个数之和均为0,要求同一个表中的数不能重复用.(4个表)
vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数.
1-22这22个数中任选5个进行排列,且每一组数列中不能有重复的数字,共有多少组?请详细列出来,
c语言要随机置出1到1000的随机数10组一组7个一组中数字不得重复从中选出出现次数的七个,在输出这七个数