建站
咨詢
售后
建站咨詢
新聞中心
vb，Dim a(9) As Integer，Dim i As Integer，Dim j As Integer，Dim temp As Integer，Dim flag As Integer，，Private Sub Form_Load()， Randomize '初始化隨機數(shù)生成器， i = 1， Do While i <= 9， temp = Int((1000 - 1 + 1) * Rnd + 1) '生成1-1000之間的隨機數(shù)， j = 1， Do While j <= i - 1， If a(j) = temp Then Exit Do '判斷是否與前一個數(shù)重復， j = j + 1， Loop， If j > i - 1 Then '如果沒有重復，將該數(shù)存入數(shù)組， a(i) = temp， i = i + 1， ElseIf j = i - 1 Then '如果有重復，重新生成隨機數(shù)， i = i + 1， End If， Loop，End Sub，“在Visual Basic(VB)編程中，生成不重復的隨機數(shù)是一個常見的需求，這通?？梢酝ㄟ^使用集合(Collections)類中的Randomize方法和Distinct方法來實現(xiàn)。
成都創(chuàng)新互聯(lián)長期為數(shù)千家客戶提供的網站建設服務，團隊從業(yè)經驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網生態(tài)環(huán)境。為樂山企業(yè)提供專業(yè)的做網站、網站設計，樂山網站改版等技術服務。擁有十載豐富建站經驗和眾多成功案例,為您定制開發(fā)。
我們需要創(chuàng)建一個集合來存儲隨機數(shù)，我們可以使用Random類來生成隨機數(shù)，并將其添加到集合中，如果生成的隨機數(shù)已經在集合中存在，那么我們就需要重新生成一個新的隨機數(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ù)需要進行調整
' 如果這個隨機數(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ù)已經存在，那么就會自動忽略它，從而保證了生成的隨機數(shù)的唯一性。
我們還使用了Random類來生成隨機數(shù)，這個類提供了各種方法來生成不同類型的隨機數(shù)，包括整數(shù)、浮點數(shù)、布爾值等，在這個示例中，我們使用了Next方法來生成一個介于0和99之間的隨機整數(shù)，你可以根據(jù)需要調整這個范圍。
我們使用了For Each循環(huán)來遍歷集合并輸出每個隨機數(shù)，這種方式比使用索引訪問集合中的元素更加直觀和易讀。
分享題目：vb中怎么生成不重復隨機數(shù)的數(shù)據(jù)
轉載來源：http://www.5511xx.com/article/djoegsc.html
