VB实现不重复随机数生成方法

"这篇文章主要介绍了如何在VB(VB6)中生成不重复的随机数，提供了两种不同的实现方法。一种是通过数组交换的方式，确保每次抽取的数字都是唯一的，另一种则是利用循环和条件判断，避免生成重复的随机数。" 在VB(VB6)编程中，生成不重复的随机数是一项常见的需求，比如在制作抽奖程序或者模拟随机事件时。这里提供了一种基于数组操作的解决方案。首先，创建一个包含35个元素的数组，数组中的每个元素代表可能的随机数。然后，通过随机函数`Rnd()`生成1-35之间的随机整数，将其与数组的第一个元素交换，这样就保证了第一个随机数的唯一性。接着，从剩下的元素中随机抽取第二个数，并与数组的第二个元素交换，依次类推，直到遍历整个数组。在整个过程中，通过比较已抽取的随机数和数组中的其他元素，确保了生成的随机数不重复。 以下是实现这一功能的具体代码步骤： 1. 定义一个大小为35的数组`vArray`，并将数组元素初始化为1到35的整数。 2. 使用`Randomize Timer`初始化随机数生成器，确保每次运行时都能得到不同的随机数序列。 3. 使用`Do...Loop`循环来生成不重复的随机数，循环条件是当前起始位置小于数组的最大索引。 4. 在循环内部，使用`Int(Rnd() * (UBound(vArray) - iStart + 1)) + iStart`生成一个新的随机数位置，然后与当前起始位置的元素交换，确保已生成的随机数不会再次被选中。 5. 当遍历到数组末尾时，最后一个未交换的元素就是最后一个随机数。 6. 使用`MsgBox`显示生成的随机数序列。 此外，还提供了一个基于循环和条件判断的简单示例，通过不断生成新的随机数并与已生成的数组进行比较，如果发现重复则重新生成，直到找到一个未出现过的随机数。这种方式虽然效率较低，但同样能保证生成不重复的随机数。 总结来说，VB中生成不重复随机数的关键在于有效地管理已生成的随机数，防止重复。通过数组交换或循环比较的方法，可以在有限的范围内确保每次生成的随机数都是唯一的。