在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并打印出生成的不重復隨機數。
請注意，此方法適用于生成少量不重復的隨機數，如果需要生成大量不重復的隨機數，可能需要使用不同的算法和數據結構。
