在编程过程中，我们常常需要生成一组随机数，并确保这些数字是唯一的。在VB（Visual Basic）中，我们可以利用内置的随机数生成器Rnd函数来完成这一任务。然而，Rnd函数默认生成的是浮点数，我们需要对其进行一些处理才能得到整数随机数。接下来，我们将介绍如何使用VB编写一个程序，在生成随机数的同时确保它们的唯一性。

首先，我们需要设置随机数种子。这可以通过调用Randomize函数来实现，它会根据系统时间自动初始化Rnd函数的种子值，从而保证每次运行程序时生成的随机数序列不同。

下面是一个简单的示例代码，展示如何生成一定数量的唯一随机整数：

```vb

Sub GenerateUniqueRandomNumbers(ByVal count As Integer, ByVal maxNumber As Integer)

Dim numbers As New Collection

Dim randomNumber As Integer

Randomize ' 初始化随机数生成器

Do While numbers.Count < count

randomNumber = CInt(Int((maxNumber + 1) Rnd())) ' 生成0到maxNumber之间的随机整数

On Error Resume Next ' 忽略重复插入错误

numbers.Add randomNumber, CStr(randomNumber)

On Error GoTo 0 ' 恢复错误处理

Loop

' 输出生成的唯一随机数

For Each num In numbers

Console.WriteLine(num)

Next

End Sub

```

在这个例子中，`count` 参数指定了需要生成的随机数的数量，而 `maxNumber` 则定义了随机数的最大可能值。我们使用了一个 Collection 对象来存储这些随机数，因为 Collection 不允许存在重复的键值。通过将随机数转换为字符串并将其作为键值添加到 Collection 中，可以有效避免重复。

当需要停止添加新的随机数时，循环会终止。最后，程序会遍历 Collection 并打印出所有生成的唯一随机数。

这种方法简单高效，适用于大多数需要生成唯一随机数的场景。当然，在实际应用中，你可能还需要考虑更多的因素，比如随机数的分布是否均匀等。但无论如何，上述方法提供了一个良好的起点，可以帮助你快速构建功能完善的随机数生成器。