在Visual Basic(VB)編程中，生成不重復的隨機數(shù)是一個常見的需求，這通?？梢酝ㄟ^使用集合(Collections)類中的Randomize方法和Distinct方法來實現(xiàn)。

成都創(chuàng)新互聯(lián)長期為數(shù)千家客戶提供的網(wǎng)站建設服務，團隊從業(yè)經(jīng)驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為樂山企業(yè)提供專業(yè)的做網(wǎng)站、網(wǎng)站設計，樂山網(wǎng)站改版等技術服務。擁有十載豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

我們需要創(chuàng)建一個集合來存儲隨機數(shù)，我們可以使用Random類來生成隨機數(shù)，并將其添加到集合中，如果生成的隨機數(shù)已經(jīng)在集合中存在，那么我們就需要重新生成一個新的隨機數(shù)，直到生成的隨機數(shù)是唯一的為止。

以下是一個簡單的示例代碼：

Imports System.Collections.Generic
Imports System.Linq
Module Module1
    Sub Main()
        ' 創(chuàng)建一個集合來存儲隨機數(shù)
        Dim randomNumbers As New HashSet(Of Integer)()
        ' 使用Random類生成隨機數(shù)
        Dim random As New Random()
        ' 循環(huán)直到集合中有10個唯一的隨機數(shù)
        While randomNumbers.Count < 10
            ' 生成一個隨機數(shù)
            Dim number As Integer = random.Next(1, 100) ' 這里的范圍可以根據(jù)需要進行調(diào)整
            ' 如果這個隨機數(shù)是唯一的，那么就將其添加到集合中
            If Not randomNumbers.Contains(number) Then
                randomNumbers.Add(number)
            End If
        End While
        ' 輸出生成的不重復隨機數(shù)
        For Each number In randomNumbers
            Console.WriteLine(number)
        Next
    End Sub
End Module

在這個示例中，我們使用了HashSet類來存儲隨機數(shù)，這是一個無序的集合，其中的元素不能重復，當我們將隨機數(shù)添加到集合中時，如果生成的隨機數(shù)已經(jīng)存在，那么就會自動忽略它，從而保證了生成的隨機數(shù)的唯一性。

我們還使用了Random類來生成隨機數(shù)，這個類提供了各種方法來生成不同類型的隨機數(shù)，包括整數(shù)、浮點數(shù)、布爾值等，在這個示例中，我們使用了Next方法來生成一個介于0和99之間的隨機整數(shù)，你可以根據(jù)需要調(diào)整這個范圍。

我們使用了For Each循環(huán)來遍歷集合并輸出每個隨機數(shù)，這種方式比使用索引訪問集合中的元素更加直觀和易讀。

網(wǎng)頁名稱：vb中怎么生成不重復隨機數(shù)的數(shù)據(jù)
文章來源：http://uogjgqi.cn/article/djoegsc.html