vb.net隨機(jī)整數(shù) vb生成指定范圍的隨機(jī)整數(shù)
vb.net程序，利用隨機(jī)函數(shù)產(chǎn)生100個1到100之間的整數(shù)，求其中的最大最小值。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
創(chuàng)新互聯(lián)主營銀海網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,成都App制作,銀海h5成都微信小程序搭建,銀海網(wǎng)站營銷推廣歡迎銀海等地區(qū)企業(yè)咨詢
Randomize() '產(chǎn)生隨機(jī)數(shù)種子 以防止每次生成結(jié)果都一樣
Dim a(100) As Integer '聲明數(shù)組存放數(shù)據(jù) 用來保存隨機(jī)數(shù)結(jié)果
Dim max As Integer, min As Integer '聲明兩個變量存最大值和最小值
min = 1000 : max = 0 '設(shè)置初值
For i = 0 To 99 '循環(huán)100次
a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一個隨機(jī)數(shù) 由于rnd范圍為0-1之間的小數(shù).所以*1000設(shè)置他的范圍為0到999之間 加1變成1到1000之間
If a(i) = max Then max = a(i) '如果當(dāng)前數(shù)值大于最大值的變量就保存
If a(i) = min Then min = a(i) '如果當(dāng)前數(shù)值小于最小值的變量就保存
Next
MsgBox("最大值為" max)
MsgBox("最小值為" min)
End Sub
vb.net中產(chǎn)生三位正整數(shù)的隨機(jī)數(shù)的程序?qū)懛?/h2>
'項目：VB中產(chǎn)生在一定正整數(shù)范圍內(nèi)的不重復(fù)的隨機(jī)數(shù)'作者：qq15495835Private Sub Command1_Click() Max = 100 '隨機(jī)數(shù)上限值 Min = 1 '隨機(jī)數(shù)下限值 Amount = 10 '產(chǎn)生號碼數(shù)量(數(shù)量值應(yīng)小于隨機(jī)數(shù)上限值-隨機(jī)數(shù)下限值)否則會產(chǎn)生死循環(huán) 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中函數(shù)Rnd能夠返回什么的隨機(jī)數(shù)
返回大于等于0小于1之間的隨機(jī)數(shù)。
Visual Basic中隨機(jī)函數(shù)
格式：Rnd(數(shù)值表達(dá)式)
功能：求[0,1)之間的一個隨機(jī)數(shù)
語法：
Rnd[(number)]
如果 number 的值是 Randomize 生成
小于 0 ，每次都使用 number 作為隨機(jī)數(shù)種子得到的相同結(jié)果。
大于 0 ，以上一個隨機(jī)數(shù)為種子產(chǎn)生下一個隨機(jī)數(shù)。
等于 0 ，產(chǎn)生與最近生成的隨機(jī)數(shù)相同的隨機(jī)數(shù)。
省略， 以上一個隨機(jī)數(shù)為種子產(chǎn)生下一個隨機(jī)數(shù)。
說明
Rnd 函數(shù)返回小于 1 但大于或等于 0 的值。
number 的值決定了 Rnd 生成隨機(jī)數(shù)的方式。
對最初給定的種子都會生成相同的數(shù)列，因為每一次調(diào)用 Rnd 函數(shù)都用數(shù)列中的前一個數(shù)作為下一個數(shù)的種子。
在調(diào)用 Rnd 之前，先使用無參數(shù)的 Randomize語句初始化隨機(jī)數(shù)生成器（若帶參數(shù)，則產(chǎn)生由參數(shù)對應(yīng)的一個特定序列的隨機(jī)數(shù)），該生成器具有根據(jù)系統(tǒng)計時器得到的種子。
為了生成某個范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
這里，upperbound 是隨機(jī)數(shù)范圍的上限，而 lowerbound 則是隨機(jī)數(shù)范圍的下限。
注意 若想得到重復(fù)的隨機(jī)數(shù)序列，在使用具有數(shù)值參數(shù)的 Randomize 之前直接調(diào)用具有負(fù)參數(shù)值的 Rnd。使用具有同樣 number 值的 Randomize 是不會得到重復(fù)的隨機(jī)數(shù)序列的。
VB.NET 程序 隨機(jī)產(chǎn)生10個整數(shù)并進(jìn)行排序
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim N As Integer = 9
Randomize()
Dim xx(9) As Integer
For i As Integer = 0 To N
xx(i) = Int(Rnd() * 1000) '產(chǎn)生 [0,1000) 之間的整數(shù)
Next
For i As Integer = 0 To N - 1
For j As Integer = i + 1 To N
If xx(i) xx(j) Then
Dim temp As Integer = 0
temp = xx(i) : xx(i) = xx(j) : xx(j) = temp
End If
Next
Next
Dim sum As Integer = 0
For i As Integer = 0 To N
TextBox1.Text += xx(i) vbCrLf
sum += xx(i)
Next
TextBox1.Text += "最大值：" xx(9) vbCrLf "最小值：" xx(0) vbCrLf "平均值：" sum / 10
End Sub
End Class
vb.net產(chǎn)生隨機(jī)數(shù)
方法名稱：next()；功能描述：返回一個0~2147483647之間的整數(shù)
方法名稱：next(i)；功能描述：返回一個0~i之間的整數(shù)
方法名稱：next(i，j)；功能描述：返回一個i~j之間的整數(shù)
方法名稱：Nextdouble()；功能描述：返回一個0~1之間的隨機(jī)小數(shù)
================
使用方法：
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
==========================
產(chǎn)生N個不同數(shù)的話，我給你個我寫的VB的代碼，你稍微改下：
產(chǎn)生0-10的數(shù)：
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隨機(jī)整數(shù) vb生成指定范圍的隨機(jī)整數(shù)
標(biāo)題網(wǎng)址：http://muchs.cn/article24/doocsce.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、用戶體驗、軟件開發(fā)、云服務(wù)器、小程序開發(fā)、營銷型網(wǎng)站建設(shè)
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)
