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

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

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站建設(shè)、做網(wǎng)站、廣昌網(wǎng)絡(luò)推廣、小程序定制開發(fā)、廣昌網(wǎng)絡(luò)營(yíng)銷、廣昌企業(yè)策劃、廣昌品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供廣昌建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：aaarwkj.com

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

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

方法名稱：Nextdouble()；功能描述：返回一個(gè)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個(gè)不同數(shù)的話，我給你個(gè)我寫的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》中的“Randomize(x)”和“Rnd(x)”

Rnd[(number)]

number

的值決定了

Rnd

生成隨機(jī)數(shù)的方式

如果

number

的值

Rnd

生成

小于

每次都使用

number

作為隨機(jī)數(shù)種子得到的相同結(jié)果。

大于

序列中的下一個(gè)隨機(jī)數(shù)。

等于

最近生成的數(shù)。

省略

序列中的下一個(gè)隨機(jī)數(shù)。

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

先討論沒有加randomize時(shí)

X小于0

如

rnd(-1)

以-1為種的隨機(jī)數(shù)永遠(yuǎn)相同

X大于0

如

rnd(1)

系統(tǒng)會(huì)先生成隨機(jī)數(shù)列表

有N個(gè)隨機(jī)數(shù)

你每執(zhí)行一次rnd(1)就獲取列表中下一個(gè)隨機(jī)數(shù)

比如有這么個(gè)列表

程序開始時(shí)

得到0.7055475

執(zhí)行第二次rnd(1)得到0.533424

第三次0.5795186

你關(guān)閉程序重新打開

第一次得到還是0.7055475

.7055475

.533424

.5795186

.2895625

.301948

而你說的X0

X0沒差別

是錯(cuò)的

Print

Rnd(1)

Debug.Print

Rnd(-2)

和

Debug.Print

Rnd(-2)

Print

Rnd(1)

結(jié)果是不一樣的

X等于0

最近生成的數(shù)

一般為科學(xué)型數(shù)值

這個(gè)值也是不變的

rnd(x)

省略x不寫

就和X0

效果一樣

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

Randomize

用

number

將

Rnd

函數(shù)的隨機(jī)數(shù)生成器初始化，該隨機(jī)數(shù)生成器給

number

一個(gè)新的種子值。如果省略

number，則用系統(tǒng)計(jì)時(shí)器返回的值作為新的種子值。

如果沒有使用

Randomize，則（無參數(shù)的）Rnd

函數(shù)使用第一次調(diào)用

Rnd

函數(shù)的種子值。

注意

若想得到重復(fù)的隨機(jī)數(shù)序列，在使用具有數(shù)值參數(shù)的

Randomize

之前直接調(diào)用具有負(fù)參數(shù)值的

Rnd。使用具有同樣

number

值的

Randomize

是不會(huì)得到重復(fù)的隨機(jī)數(shù)序列的。

一般在使用rnd獲取隨機(jī)數(shù)

都是

randomize

int(rnd*(上限-下限+1）+下限)

這2個(gè)函數(shù)的X都是省略不寫

請(qǐng)問在vb.net中如何實(shí)現(xiàn)隨機(jī)取數(shù)??

Dim k() As Integer = New Integer() {1, 2, 3, 4, 5, 6}

Dim p1 As Integer

Random r = new Random();

int p1 = k(r.Next(5)) '隨機(jī)出現(xiàn)0~5之間的數(shù)。

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

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

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

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

vb.net隨機(jī)產(chǎn)生英文字母的代碼

1.隨機(jī)產(chǎn)生英文字母

Randomize() '功 能：初始化隨機(jī)數(shù)發(fā)生器

Me.txt1.Text = Chr(Asc("a") + Int(Rnd() * 26))

'Rnd 函數(shù)返回小于 1 但大于或等于 0 的值。

'0 = Rnd() * 26 26 是含小數(shù)位的數(shù)

'Int(Rnd() * 26) 轉(zhuǎn)換為整型，就是0~25的隨機(jī)數(shù)

'Asc("a") 得到a的ASCii數(shù)值，是整數(shù)97（A是65）

'a~z的ASCii為97~122 ，即為a~z之間的字母為97加（0~25）

'Asc("a") + Int(Rnd() * 26)為97到122的隨機(jī)數(shù)

'Chr（）又可以起到轉(zhuǎn)換成字符的功能，Chr(97)表示a （a轉(zhuǎn)換成數(shù)值又是Asc("a")=97）

'Chr(Asc("a") + Int(Rnd() * 26))就是a~z的隨機(jī)數(shù)了

Randomize() '再次初始化隨機(jī)數(shù)發(fā)生器

Me.txt2.Text = Chr(Asc("A") + Int(Rnd() * 26)) '這里是A~Z的隨機(jī)數(shù)

'也可以換這種寫法

Randomize()

Me.txt1.Text = Chr(Int((26 * Rnd()) + 97)) '這里是a~z的隨機(jī)數(shù)

'這是在你知道ASCII碼的情況之下（a~z為97~122，A~Z為65~90）

'Rnd()為0~0.9999999.....的隨機(jī)數(shù)

' 26 * Rnd()為0~25.9999...的隨機(jī)數(shù)

'Int((26 * Rnd())為0~25的隨機(jī)數(shù)

'Int((26 * Rnd()) + 97)為97~122的隨機(jī)數(shù)

'Chr(Int((26 * Rnd()) + 97))就是a~z的隨機(jī)數(shù)了

Randomize()

Me.txt2.Text = Chr(Int((26 * Rnd()) + 65)) '這里是A~Z的隨機(jī)數(shù)

'至于同時(shí)在一處隨機(jī)大寫或小寫，ASCII碼的數(shù)字又不挨在一起（65-90,97-122），比較麻煩。想寫的話，你可以自己想一下怎么辦

2.數(shù)字怎樣轉(zhuǎn)換成ASCII碼所對(duì)應(yīng)的字母

Chr()函數(shù)將數(shù)字轉(zhuǎn)換成ASCII對(duì)應(yīng)的字母，Asc()函數(shù)將字母根據(jù)ASCII表轉(zhuǎn)換成數(shù)字

Chr(97)表示a （a轉(zhuǎn)換成數(shù)值又是Asc("a")=97）

3.加到數(shù)組，你可以放在一個(gè)for循環(huán)里

比如

Dim arylst1 As New ArrayList

Dim arr1() As String '數(shù)組

Dim str1 As String

For i As Integer = 1 To 15 '比如我想要15個(gè)隨機(jī)字母

Randomize()

str1 = Chr(Int((26 * Rnd()) + 65)) '這里是A~Z的隨機(jī)數(shù)

arylst1.Add(str1)

Next

ReDim arr1(arylst1.Count - 1) '這里是為了比較動(dòng)態(tài)，可以只改變 i 的范圍來決定要多少個(gè)隨機(jī)字母

'當(dāng)然也可以寫死，在前面直接定義為 arr1(14)，下次要改的時(shí)候就要改定義的地方和i的范圍，改兩個(gè)地方

arylst1.CopyTo(arr1)

'就把數(shù)值拷貝到數(shù)組里面了

網(wǎng)頁標(biāo)題：vb.net的隨機(jī),vb隨機(jī)文件的操作
分享路徑：http://aaarwkj.com/article10/dssjddo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營(yíng)銷型網(wǎng)站建設(shè)、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站策劃、建站公司、網(wǎng)站導(dǎo)航、企業(yè)網(wǎng)站制作

廣告

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