建站
咨詢
售后
建站咨詢
新聞中心
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 '初始化隨機(jī)數(shù)生成器， i = 1， Do While i <= 9， temp = Int((1000 - 1 + 1) * Rnd + 1) '生成1-1000之間的隨機(jī)數(shù)， j = 1， Do While j <= i - 1， If a(j) = temp Then Exit Do '判斷是否與前一個(gè)數(shù)重復(fù)， j = j + 1， Loop， If j > i - 1 Then '如果沒(méi)有重復(fù)，將該數(shù)存入數(shù)組， a(i) = temp， i = i + 1， ElseIf j = i - 1 Then '如果有重復(fù)，重新生成隨機(jī)數(shù)， i = i + 1， End If， Loop，End Sub，“在Visual Basic(VB)編程中，生成不重復(fù)的隨機(jī)數(shù)是一個(gè)常見的需求，這通常可以通過(guò)使用集合(Collections)類中的Randomize方法和Distinct方法來(lái)實(shí)現(xiàn)。
成都創(chuàng)新互聯(lián)長(zhǎng)期為數(shù)千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為樂(lè)山企業(yè)提供專業(yè)的做網(wǎng)站、網(wǎng)站設(shè)計(jì)，樂(lè)山網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。
我們需要?jiǎng)?chuàng)建一個(gè)集合來(lái)存儲(chǔ)隨機(jī)數(shù)，我們可以使用Random類來(lái)生成隨機(jī)數(shù)，并將其添加到集合中，如果生成的隨機(jī)數(shù)已經(jīng)在集合中存在，那么我們就需要重新生成一個(gè)新的隨機(jī)數(shù)，直到生成的隨機(jī)數(shù)是唯一的為止。
以下是一個(gè)簡(jiǎn)單的示例代碼：
Imports System.Collections.Generic
Imports System.Linq
Module Module1
Sub Main()
' 創(chuàng)建一個(gè)集合來(lái)存儲(chǔ)隨機(jī)數(shù)
Dim randomNumbers As New HashSet(Of Integer)()
' 使用Random類生成隨機(jī)數(shù)
Dim random As New Random()
' 循環(huán)直到集合中有10個(gè)唯一的隨機(jī)數(shù)
While randomNumbers.Count < 10
' 生成一個(gè)隨機(jī)數(shù)
Dim number As Integer = random.Next(1, 100) ' 這里的范圍可以根據(jù)需要進(jìn)行調(diào)整
' 如果這個(gè)隨機(jī)數(shù)是唯一的，那么就將其添加到集合中
If Not randomNumbers.Contains(number) Then
randomNumbers.Add(number)
End If
End While
' 輸出生成的不重復(fù)隨機(jī)數(shù)
For Each number In randomNumbers
Console.WriteLine(number)
Next
End Sub
End Module
在這個(gè)示例中，我們使用了HashSet類來(lái)存儲(chǔ)隨機(jī)數(shù)，這是一個(gè)無(wú)序的集合，其中的元素不能重復(fù)，當(dāng)我們將隨機(jī)數(shù)添加到集合中時(shí)，如果生成的隨機(jī)數(shù)已經(jīng)存在，那么就會(huì)自動(dòng)忽略它，從而保證了生成的隨機(jī)數(shù)的唯一性。
我們還使用了Random類來(lái)生成隨機(jī)數(shù)，這個(gè)類提供了各種方法來(lái)生成不同類型的隨機(jī)數(shù)，包括整數(shù)、浮點(diǎn)數(shù)、布爾值等，在這個(gè)示例中，我們使用了Next方法來(lái)生成一個(gè)介于0和99之間的隨機(jī)整數(shù)，你可以根據(jù)需要調(diào)整這個(gè)范圍。
我們使用了For Each循環(huán)來(lái)遍歷集合并輸出每個(gè)隨機(jī)數(shù)，這種方式比使用索引訪問(wèn)集合中的元素更加直觀和易讀。
新聞標(biāo)題：vb中怎么生成不重復(fù)隨機(jī)數(shù)的數(shù)據(jù)
鏈接地址：http://www.dlmjj.cn/article/djoegsc.html
