VB生成不重复的随机数（国外英文资料）.doc

VB生成不重复的随机数（国外英文资料） VB generates an unduplicated random number My advice is: first, do an array, and save the 35 Numbers (which can be either consecutive Numbers, or names, strings, etc.). Step two, randomly generate a number between 1-35 and output; Step 3: switch the first unit of the array; Step 4, extract the second number randomly from the second to 35 of the array. Step five: call the second element of the random number and the second unit of the array; Step 6, randomize the third number, output... Repeat until you have a random number between the 35th and 35 Numbers, and then the final one will be printed directly. The program is as follows (VB6) : On the default form of 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 () The test End sub Private sub InitArray () Dim as long I assign a value to an array For I = 1 to 35 Varrays (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 up the random factors to make the random number of each run program different IStart = 1 The do IPos = int (RND * (vArray) - iStart + 1) + iStart produces an integer between iStart to 35 (from the top of the vArray) SReturn = sReturn varray (iPos) vbcrlf output swap unit content VTemp = varrays (up) Varrays (up) = varrays (iPos) Varrays (iPos) = vTemp IStart = iStart + 1, when youre randomly generated, youre going to generate one less If iStart = ubound (vArray) then the last one, the direct output SReturn = sReturn vArray (vArray) Exit the Do End the if If iStart 7 then exit do if you need to generate a few Numbers, change the 7 to something greater than the number of elements of the array, and the number of elements that will be output (this example is 35) Loop Msgbox sReturn msgbox output End sub = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =