vb生成不重复的随机数（VB generates random numbers that are not repeated）.docVIP

vb生成不重复的随机数（VB generates random numbers that are not repeated） VB generates random numbers that are not repeated My suggestion is: the first step, first make a deposit on the array, the number 35 (which may not be continuous, can also be a string of names, what); the second step, generates a random number between 1-35 and output; the third step: the first element of the array and the number of pay in the fourth step, the output from the array; the 2-35 between second randomly selected number; fifth step, the second unit second random number and the array this call number; the sixth step, a random sample of third output..... Repeat to draw a random number between the 35-35 numbers, then direct the last one. The program is as follows (VB6): On the default form in the project, draw a Command1, paste program: Option explicit Private vArray (1, to, 35) as currency defines the number of arrays Private, sub, command1_click () Test End Sub Private, sub, InitArray () Dim I as long Assign an array 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 sets random factors so that the random number of programs they run every time is different IStart=1 Do IPos=int (rnd* (UBound (vArray), -iStart+1)) +iStart produces an integer between iStart and 35 (35 taken from vArrays superscript) SReturn=sReturn vArray (iPos) vbcrlf output Unit content VTemp=vArray (iStart) VArray (iStart) =vArray (iPos) VArray (iPos) =vTemp IStart=iStart+1 next time it is randomly generated, one less is generated If iStart=ubound (vArray) then The last one, the direct output SReturn=sReturn vArray (UBound (vArray)) Exit Do End if If iStart7 then exit do if you need to generate several numbers, change 7 to several, greater than the number of array elements, and the number of elements that will output the speed (this example is 35) Loop Msgbox sReturnmsgbox output results End Sub ============