代码:
Private Sub ChooseNumber1(ByVal n As Integer, ByVal m As Integer, B() As Variant)
ReDim A(1 To n) As Integer
ReDim B(1 To m)
Dim i As Integer, k As Integer, tmp As IntegerRandomize
For i = 1 To n
A(i) = i
Next
For i = 1 To n '数组打乱
tmp = A(i)
k = Fix(Rnd * n) + 1
A(i) = A(k)
A(k) = tmp
Next
For i = 1 To m '从n中取出m个随机数,不重复
B(i) = A(i)
Next
Label1.Caption = Join(B(), " , ")
End Sub
已经有(0)位网友发表了评论,你也评一评吧!
原创文章如转载,请注明:转载自Eddy Blog
原文地址:http://www.rrgod.com/program/267.html 欢迎订阅Eddy Blog。