vb中怎么生成不重復(fù)隨機(jī)數(shù)

vb
小億
796
2023-08-16 11:32:54

在VB中生成不重復(fù)的隨機(jī)數(shù)可以通過(guò)使用Random類來(lái)實(shí)現(xiàn)。你可以使用一個(gè)數(shù)組來(lái)存儲(chǔ)已生成的隨機(jī)數(shù)，然后在生成隨機(jī)數(shù)時(shí)進(jìn)行判斷是否已存在該數(shù)，直到生成一個(gè)不重復(fù)的隨機(jī)數(shù)為止。

以下是一個(gè)示例代碼：

Dim random As New Random()
Dim generatedNumbers As New List(Of Integer)()
Do While generatedNumbers.Count < 10 ' 生成10個(gè)不重復(fù)的隨機(jī)數(shù)
Dim randomNumber As Integer = random.Next(1, 100) ' 生成1到100之間的隨機(jī)數(shù)
If Not generatedNumbers.Contains(randomNumber) Then
generatedNumbers.Add(randomNumber)
End If
Loop
For Each number As Integer In generatedNumbers
Console.WriteLine(number)
Next

在上述代碼中，我們使用了一個(gè)List來(lái)存儲(chǔ)已生成的隨機(jī)數(shù)。在每次生成隨機(jī)數(shù)時(shí)，首先檢查該數(shù)是否已存在于List中，如果不存在則將其添加到List中。最后，我們遍歷List并打印出生成的不重復(fù)隨機(jī)數(shù)。

請(qǐng)注意，此方法適用于生成少量不重復(fù)的隨機(jī)數(shù)，如果需要生成大量不重復(fù)的隨機(jī)數(shù)，可能需要使用不同的算法和數(shù)據(jù)結(jié)構(gòu)。

0 踩