vb.net中產生三位正整數的隨機數的程序寫法

'項目：VB中產生在一定正整數范圍內的不重復的隨機數'作者：qq15495835Private Sub Command1_Click() Max = 100 '隨機數上限值 Min = 1 '隨機數下限值 Amount = 10 '產生號碼數量(數量值應小于隨機數上限值-隨機數下限值)否則會產生死循環 ReDim a(Amount) Randomize For i = 0 To Amount a(i) = Int((Max - Min + 1) * Rnd + Min) For j = 0 To i If i j And a(i) = a(j) Then i = i - 1 Next Next Text1 = Join(a, vbCrLf)End Sub'請采納參考！謝謝！

建網站原本是網站策劃師、網絡程序員、網頁設計師等，應用各種網絡程序開發技術和網頁設計技術配合操作的協同工作。創新互聯專業提供成都網站建設、網站建設,網頁設計,網站制作(企業站、響應式網站開發、電商門戶網站)等服務,從網站深度策劃、搜索引擎友好度優化到用戶體驗的提升,我們力求做到極致!

vb。net取隨機數

取隨機數可以用 Random 類。

給定10個數的話，可以把這10個數放在一個數組里，然后取0~9的范圍內的隨機數，用它當數組下標取數組成員即可。

vb.net產生隨機數

方法名稱：next()；功能描述：返回一個0~2147483647之間的整數

方法名稱：next(i)；功能描述：返回一個0~i之間的整數

方法名稱：next(i，j)；功能描述：返回一個i~j之間的整數

方法名稱：Nextdouble()；功能描述：返回一個0~1之間的隨機小數

================

使用方法：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim rand = New System.Random()

MsgBox(rand.next().ToString())

End Sub

==========================

產生N個不同數的話，我給你個我寫的VB的代碼，你稍微改下：

產生0-10的數：

Private Sub Command1_Click()

Randomize

Dim a(10) As Long

n = 10

For i = 0 To n

a(i) = Int(Rnd() * (n + 1))

For j = 0 To i - 1

If a(i) = a(j) Then

i = i - 1

Exit For

End If

Next

Next

For i = 0 To n

Print a(i)

Next

End Sub

本文名稱：vb.net的隨機數 vb產生一個隨機數
文章起源：http://vcdvsql.cn/article14/hepide.html

成都網站建設公司_創新互聯，為您提供網站制作、外貿網站建設、移動網站建設、網站設計公司、營銷型網站建設、網站排名

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯