VB生成不重复的随机数

VB生成不重复的随机数

VB生成不重复的随机数

我的建议是：第一步、先做一个数组，存上这35个数（可以不是连续的数，也可以是人名、字符串什么的）；第二步、随机生成一个1-35之间的数，输出；第三步：把这个数和数组的第一个单元交换；第四步、从数组的第2-35之间随机抽取第二个数，输出；第五步、把这随机抽取的第二个数和数组的第二个单元内容呼唤；第六步、随机抽取第三个数，输出。。。。。重复到从第35-35个数之间随机抽取一个数，这时直接输出最后一个就行了。

程序如下（VB6）：

工程里默认的窗体上，画一个Command1，粘贴程序：

option explicit

private vArray(1 to 35) as currency '定义数组个数

private sub command1_click()

test

end sub

private sub InitArray()

dim i as long

'给数组赋值

for i=1 to 35

varray(i)=i

next i

end sub

private sub Test()

dim iStart as long

dim iPos as long

dim vTemp as currency

dim sReturn as string

InitArray

randomize timer '设置随机因子，使其每次运行程序的随机数都不一样

iStart=1

do

iPos=int(rnd*(ubound(vArray)-iStart+1))+iStart '产生iStart到35（35取自vArray 的上标）之间的整数

sReturn=sReturn & vArray(iPos) & vbcrlf '输出

'交换单元内容

vTemp=vArray(iStart)

vArray(iStart)=vArray(iPos)

vArray(iPos)=vTemp

iStart=iStart+1 '下次随机生成时，少生成一个

if iStart>=ubound(vArray) then

'最后一个了，直接输出

sReturn=sReturn & vArray(ubound(vArray))

Exit Do

end if

if iStart>7 then exit do '如果需要生成几个数，就把7改成几，大于数组元素的个数，将输出速度的元素个数(这个例子是35）

Loop

msgbox sReturn 'msgbox 输出结果

end sub

'================================================================ ==============================

'方法二

Private Sub Command1_Click()

Dim a(35) As Integer

For i = 0 To 35

way1:

Randomize

a(i) = Int(Rnd() * 36) + 1

If i > 1 Then

For p = 0 To i - 1

If a(p) = a(i) Then '‘与前面的对比，如果有重复，重新随机

GoTo way1

End If

Next p

End If

Print a(i); '打印

Next i

Print "" '打印

End Sub

'================================================================ ==========================

'方法三

如果楼主是要产生0-9等10个不重复的随机数的话，在随机数范围和个数相等

的情况下，楼上的方法都无异于散弹打鸟。在最不利情况下时间将无限延长，特别是对更多随机数的时候。

以下提供两种思路：

1.实际上我们只要确定了其中9个数字那么第10个数字根本不用去想；

确定8个，那么随机只在2个数之间，以此类推，使用动态数组如a()，先用for将10个数字加入，然后开始rnd*ubound(a)取得其中一个，放入数组b，再将该数字从a数组中剔除。速度：(n+n^2)/2

2.只需要得到10个无序排列的数字即可，没必要去一直产生随机数，只要打乱顺序即可。在数组a中加入10个数字，然后开始for循环10次，每次产生一个10以内的随机数，然后将循环次数i与随机数的位置互换。速度：n

'================================================================ ================================

'方法四

关于随机数的不重复求取

Option Base 1

Private Sub Command1_Click()

Randomize Timer

Dim A(1 To 10) As Integer '数组M

Dim B(1 To 8) As String '数组N

Dim i As Integer, k As Integer, t As Integer

For i = 1 To 10

A(i) = i

Next

For i = 1 To 10 '数组打乱

t = A(i)

k = Fix(Rnd * 10) + 1

A(i) = A(k)

A(k) = t

Next

For i = 1 To 8 '从M中随机取出N个数,不重复

B(i) = A(i)

Next

Label1.Caption = Join(B(), " , ")

End Sub

'方法五====================================================== Private Sub Command2_Click()

Randomize Timer

Dim Dimension(8)

Dim i As Byte, j As Byte

Randomize Timer