在VB（Visual Basic）编程中，生成不重复的随机数是一项常见的需求，特别是在模拟、测试或者数据填充等场景。为了实现这一功能，我们可以利用FSO（FileSystemObject）对象中的词典（Dictionary）来辅助我们。词典对象在VBScript中提供了一个哈希表结构，允许我们存储键值对，它具有检查键是否已存在的功能，这正是我们解决不重复随机数问题的关键。
我们需要引入`Scripting`命名空间，以使用FSO对象：
```vb
Dim fso As Object
Set fso = CreateObject("Scripting.Dictionary")
```
接下来，我们将创建一个循环，用于生成随机数并检查其是否已经存在于词典中。VB中的`Rnd`函数用于生成随机数，通过设置种子（通常使用`Time`函数）确保每次运行时生成不同的序列：
```vb
Randomize ' 初始化随机数生成器
Dim randomNum As Integer
Dim maxNum As Integer ' 设置随机数最大值
maxNum = 100 ' 示例值，根据实际需求调整
While fso.Count < maxNum ' 假设我们想要生成maxNum个不重复的随机数
randomNum = Int((maxNum - 1) * Rnd + 1) ' 生成[1, maxNum]之间的整数
If Not fso.exists(randomNum) Then ' 检查该随机数是否已存在
fso.Add randomNum, 1 ' 如果不存在，则添加到词典
' 这里可以执行其他操作，比如打印或存储随机数
Debug.Print randomNum
End While
Wend
```
在这个示例中，`While`循环会一直运行，直到词典中包含了指定数量的不重复随机数。`If Not fso.exists(randomNum)`语句用于判断新生成的随机数是否已经在词典中。如果不存在，我们将其添加到词典，并执行任何所需的操作，如在控制台打印出来。
总结一下，使用VB生成不重复的随机数的核心思路是结合`Rnd`函数生成随机数，并利用词典对象的`Exists`方法检查新生成的随机数是否已存在。这样可以确保生成的每一个随机数都是唯一的，避免了重复。这种方法在处理大量随机数且需要确保唯一性的场合非常有用。如果你需要生成的随机数是浮点数而非整数，只需稍微调整`Rnd`函数的使用方式即可。
