VB在一组数中随机抽5个数要求不能重复

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/13 05:44:50

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编写代码,请高手发个代码可以吗

'可以用集合对象来操作,每抽取一个数时,就把该项移除掉.这样就可以保证每个数只抽取一次.
'当然如果你提供的这系列数中本身有重复的数的话,那避免不了有重复的数了.
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个一组中数字不得重复从中选出出现次数的七个,在输出这七个数