VB中数字随机抽选

来源：百度知道 编辑：UC知道 时间：2024/09/22 03:53:46
我想请问下VB高手如何随机抽先事先就定议好的的数字，意思就是：比如有5个LABEL 有一串数字 比如“10，25，34，54，61”我想写一个程序比如单击COM1，这几个数字就随机分配给LABEL1-LABEL5的CAPTION 而且不能有相同的出现，比如说有LABEL1的CAPTION是10 LABEL3的CAPTION也是10，这样不行，每次都要不五个不一样的 而且是要在我规定好的五个数内随机抽选。。我想好久 都写不出满意的来 请高手支招啊，小弟谢了！！！

'给你一个随机抽选的函数：
Function GetRnd(ScorceArray() As Integer)
Dim i, MaxNuMynubmerser, seq, MainLoop, ChosenNuMynubmerser, Mynubmers
Dim A, B, C
Mynubmers = UBound(ScorceArray)
ReDim A(Mynubmers) ' 存放顺序数字序号
ReDim B(Mynubmers) ' 存放最后产生的随机数序号
ReDim C(Mynubmers) ' 存放最后随机抽选的号码
MaxNuMynubmerser = Mynubmers ' 需要和数组维数相同
For seq = 0 To MaxNuMynubmerser
A(seq) = seq
Next seq
Randomize (Timer)
For MainLoop = MaxNuMynubmerser To 0 Step -1
ChosenNuMynubmerser = Int(MainLoop * Rnd)
B(MaxNuMynubmerser - MainLoop) = A(ChosenNuMynubmerser)
A(ChosenNuMynubmerser) = A(MainLoop)
Next MainLoop
List1.Clear
For i = 0 To Mynubmers
C(i) = ScorceArray(B(i))
Next i
For i = 0 To Mynubmers
ScorceArray(i) = C(i)
Next i
End Function
'函数调用举例：