在VB中生成不重复的随机数可以通过使用Random类来实现。你可以使用一个数组来存储已生成的随机数，然后在生成随机数时进行判断是否已存在该数，直到生成一个不重复的随机数为止。
以下是一个示例代码：
Dim random As New Random()
Dim generatedNumbers As New List(Of Integer)()
Do While generatedNumbers.Count < 10 ' 生成10个不重复的随机数
Dim randomNumber As Integer = random.Next(1, 100) ' 生成1到100之间的随机数
If Not generatedNumbers.Contains(randomNumber) Then
generatedNumbers.Add(randomNumber)
End If
Loop
For Each number As Integer In generatedNumbers
Console.WriteLine(number)
Next
在上述代码中，我们使用了一个List来存储已生成的随机数。在每次生成随机数时，首先检查该数是否已存在于List中，如果不存在则将其添加到List中。最后，我们遍历List并打印出生成的不重复随机数。
请注意，此方法适用于生成少量不重复的随机数，如果需要生成大量不重复的随机数，可能需要使用不同的算法和数据结构。
