vb.net怎樣生成隨機數(shù)

Dim a As Integer = CInt(Int((9999 - 1000 + 1) * Rnd() + 1000))

成都創(chuàng)新互聯(lián)公司長期為上1000家客戶提供的網(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ā)。

注：randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))

這里，upperbound 是此范圍內最大的數(shù)，lowerbound 是此范圍內最小的數(shù)。

vb.net產(chǎn)生隨機數(shù)

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

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

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

方法名稱：Nextdouble()；功能描述：返回一個0~1之間的隨機小數(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程序，利用隨機函數(shù)產(chǎn)生100個1到100之間的整數(shù)，求其中的最大最小值。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Randomize() '產(chǎn)生隨機數(shù)種子 以防止每次生成結果都一樣

Dim a(100) As Integer '聲明數(shù)組存放數(shù)據(jù) 用來保存隨機數(shù)結果

Dim max As Integer, min As Integer '聲明兩個變量存最大值和最小值

min = 1000 : max = 0 '設置初值

For i = 0 To 99 '循環(huán)100次

a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一個隨機數(shù) 由于rnd范圍為0-1之間的小數(shù).所以*1000設置他的范圍為0到999之間 加1變成1到1000之間

If a(i) = max Then max = a(i) '如果當前數(shù)值大于最大值的變量就保存

If a(i) = min Then min = a(i) '如果當前數(shù)值小于最小值的變量就保存

Next

MsgBox("最大值為" max)

MsgBox("最小值為" min)

End Sub

vb.net怎么隨機生成5個不同是數(shù)（1-33內的數(shù)），大神求救

想要生成多少個都行。

Randomize()隨機打亂

dim?a1?as?integer=cint(rnd()*32))+1

dim?a2?as?integer=cint(rnd()*32))+1

dim?a3?as?integer=cint(rnd()*32))+1

dim?a4?as?integer=cint(rnd()*32))+1

dim?a5?as?integer=cint(rnd()*32))+1

怎么用VB做一個隨機抽取器？

只要在代碼中使用隨機函數(shù)即可實現(xiàn)隨機抽取功能

一、vb隨機數(shù)生成的方法

vb隨機數(shù)生成函數(shù)是 Rnd[(number)]，number 參數(shù)為可選項。在調用 Rnd 生成隨機數(shù)之前，先使用 Randomize 初始化隨機數(shù)生成器來產(chǎn)生種子，該生成器是根據(jù)系統(tǒng)計時器來產(chǎn)生種子的。

1、生成100以內的隨機數(shù)

Randomize

Int(Rnd() * 100)//生成 0 - 99 之間的隨機數(shù)

Int(Rnd() * 101)//生成 0 - 100 之間的隨機數(shù)

　 　2、生成指定范圍隨機數(shù)

由于 vb 沒有提供直接生成指定范圍隨機數(shù)的函數(shù)，所以要把 Rnd 變通一下，方法如下：

Int((上限 - 下限 + 1) * Rnd + 下限);

把它封裝成可直接調用的函數(shù)如下：

Function GetRandom(under, over As Integer) As Integer

If under over Then

temp = under;

under = over;

over = temp;

End If

Randomize

GetRandom = Int((under - over + 1) * Rnd + over);

End Function

調用方法：

GetRandom(10, 100);//生成10到100的隨機數(shù)

二、vb.net生成隨機數(shù)的方法

1、方法：Random.Next(int minValue, int maxValue);

2、說明：

若 minValue 和 maxValue 都沒有提供，則生成一個 0 - 2147483647 之間的隨機數(shù)；

若 minValue 和 maxValue 只提供一個，則生成一個 0 - maxValue 之間的隨機數(shù)；

若 minValue 和 maxValue 兩個都提供，則生成一個 minValue - maxValue 之間的隨機數(shù)；

3、舉例

Dim ran = New System.Random()

ran.Next()//生成 0 - 2147483647 之間的隨機數(shù)

ran.Next(100)//生成 0 - 100 之間的隨機數(shù)

ran.Next(10, 100)//生成 10 - 100 之間的隨機數(shù)

Dim ran = New Random(DateTime.Now.Millisecond)//通過日期的微秒生成隨機數(shù)

VB.NET隨機選取不重復的數(shù)

0、前提條件：有一個數(shù)字列表，或者數(shù)字段范圍（1~100）；

1、Randomize '初始化隨即函數(shù)；

2、用列表或者數(shù)組存放待選數(shù)據(jù)，比如長度為60；

3、利用隨機函數(shù)抽取數(shù)字對應的數(shù)據(jù) num=Rnd*60，Ret_Value=List(num)，將選取結果存入結果單元；

4、然后從列表或者數(shù)組中去掉這個數(shù)據(jù)，（避免重復選中）；

5、然后再運行3；

6、直到滿意為止。

網(wǎng)站名稱：vb.net隨機抽取,vb語句隨機選取
瀏覽路徑：http://chinadenli.net/article46/heehhg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供響應式網(wǎng)站、品牌網(wǎng)站設計、企業(yè)建站、微信小程序、網(wǎng)站設計公司、網(wǎng)站設計

廣告

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