【問題】[VB] 開板第一問!!--亂數迴圈

[六柳先生 10]

就...如題

我一直不知道亂數迴圈怎麼寫

看書也看不懂ˊˋ

[Kannushi Link 11]

最初由 sixwillows 發表

就...如題

我一直不知道亂數迴圈怎麼寫

看書也看不懂ˊˋ

不太懂勒............

是不是先取一個數字

然後看數字決定要哪一個迴圈???

[ckmarkhsu 7]

沒有亂數迴圈這種東西 一 一

請你描述清楚點吧~~~

[六柳先生 10]

就是會亂數自己選東西的東西啦~

(很抽象~"~)

[jimmykuo 10]

因該是亂數產生數字吧

由產生的數字再跑出代表此數字的東西

這可以用Rnd這個函數

[ckmarkhsu 7]

最初由 sixwillows 發表

就是會亂數自己選東西的東西啦~

(很抽象~"~)

你這種說法太抽象

請你先把大剛描述出來

不懂的部份再詢問

亂數的寫法是這樣

Rnd(Time)

它會回傳一個小數值(類型我忘了)

引數 可以為任何變動值 這邊是以系統時間為引數

[jimmykuo 10]

我打了一個給你參考看看,這因該是你說的

"Private Sub Form_Click()

Randomize Timer '用系統的時間作為子變數來產生亂數

For i = 1 To 5 '設定i這個變數從第一個到第5個

Print Rnd '秀出Rnd這個函數產生的數

Next i '下一個

End Sub

"

[ckmarkhsu 7]

喝喝 太久沒寫了

樓上的程式碼比較精準

我剛剛還打成Rnd;

orz PHP寫太多

[語易奇 10]

最初由 jimmykuo 發表

我打了一個給你參考看看,這因該是你說的

"Private Sub Form_Click()

Randomize Timer '用系統的時間作為子變數來產生亂數

For i = 1 To 5 '設定i這個變數從第一個到第5個

Print Rnd '秀出Rn.............(論壇訊息:引文過長 恕刪)

補充：VB裡面的，將Rnd取得小數值，轉成整數

Randomize Timer '每秒更新一次亂數，使數值不會重復

Dim R As Long

'R = (Int(Rnd * 5)) * 2 + 1　　　　'1.3.5.7.9

'R = (Int(Rnd * 5)) * 2　　　　　　'0.2.4.6.8

'R = (Int(Rnd * 5 + 1))　　　　　　'1.2.3.4.5

'R = (Int(Rnd * 5))　　　　　　　　'0.1.2.3.4

Print R

'int() 整數

'rnd() 亂數，我記得好像是 0 到 0.1 之間..(忘了，我記那個幹嘛...要用到再查就好了..)

最初由 ckmarkhsu 發表

喝喝 太久沒寫了

樓上的程式碼比較精準

我剛剛還打成Rnd;

orz PHP寫太多

咦!? Rnd??

我怎麼都寫 Rand 囧...

[Kannushi Link 11]

最初由 aiyswu 發表

'rnd() 亂數，我記得好像是 0 到 0.1 之間..(忘了，我記那個幹嘛...要用到再查就好了..)

我記得好像是0~1之間

[暱稱暱* 10]

嗯...

RND傳回的亂數值為

0≦數<1~所以要猜0~9的乘以10就好了~XD(不過最好先用int...不然會猜到死= =")

[knsman78 10]

你們都是用VB哪個版本啊！

我是用VB.NET！

如果要0~9的亂數！

Dim a as byte

a=Int(9*Rnd( ))

亂數有個小公式！

最小值n~最大值m

Int((m-n+1)*Rnd( ))+n

對了！

還有一個很重要的東西！

如果要每次出來的亂數都不一樣的話！

在寫Rnd( )之前要先加Randomize( )！

聽不懂的話可以"多試"幾次！

看有加Randomize( )跟沒加Randomize( )差在哪裡！

例：

一.

Dim a As Byte

TextBox.Text=Int(9*Rnd( ))

二.

Dim a As Byte

Randomize( )

TextBox.Text=Int(9*Rnd( ))

[ckmarkhsu 7]

我還停留在古老的VB6

[Kannushi Link 11]

有"先"加Randomize會啟動亂數

沒加的話每次跑出來數的就會一樣(除非你把程式關掉再重開)

[knsman78 10]

最初由 Samurai Link 發表

有"先"加Randomize會啟動亂數

沒加的話每次跑出來數的就會一樣(除非你把程式關掉再重開)

聽說關掉重開還是會一樣唷！

[花凌夏 10]

每次上電腦課都在搞這個...........

接近瘋狂狀態..........

老師根本只丟題目 .........其他都要我們想辦法...........亂數迴圈

很遙遠的事情了 <做完就忘>

[語易奇 10]

最初由 knsman78 發表

聽說關掉重開還是會一樣唷！

我想他應該是說"重新開機"

重新開機才會不一樣

如果你沒先宣告 Randomize

[s12085240 10]

VB6我覺得好像比較普遍

我們學校都還在用VB6阿

我們學校自稱電腦設備是全北市數一數二的

都還在用VB6

[Kannushi Link 11]

最初由 s12085240 發表

VB6我覺得好像比較普遍

我們學校都還在用VB6阿

我們學校自稱電腦設備是全北市數一數二的

都還在用VB6

我們學校有VB

也有Tubro C++

BUT.........................我們是教"VBScript".....................= =||||||| = =||||||| = =||||||| = =||||||| = =|||||||

[趴小傑 10]

這邊三台電腦有一台是裝VB6.0"企業版"

老實說我不知道有差到哪裡 還是一樣的使用阿~"~

[ckmarkhsu 7]

恩 如果你有用資料庫 和一些特殊控制項

你就會知道差異在哪邊了....

[- Ｃｈａｉｏ* - 10]

.......為什麼我們用的是....ＱＢ............|||||||b

不過看樓上大大們打的程式碼　好像跟ＱＢ沒差多少

[petercpg 10]

最初由 〝Σ　Ｒｅｎａ　‥ 發表

.......為什麼我們用的是....ＱＢ............|||||||b

不過看樓上大大們打的程式碼　好像跟ＱＢ沒差多少

唔 現在還有人在學QB阿?

想當初我學GWBASIC時候還無聊玩過微軟送的QB大金剛丟香蕉咧 XD

--

QB能算是最早整合出IDE環境的語言了吧 [笑]

[ckmarkhsu 7]

最初由 〝Σ　Ｒｅｎａ　‥ 發表

.......為什麼我們用的是....ＱＢ............|||||||b

不過看樓上大大們打的程式碼　好像跟ＱＢ沒差多少

QB跟VB是截然不同的東西了

跟VB.NET更是不同世紀的東西@@

[訪客 凌小白]

QB是啥阿= ="

我聽都沒聽過阿~小弟真是才疏學淺~XD

我覺得TC最好用~自學中...

我們一年級的時候有教VB.net 喔!!

但是這一屆就換成教VB6.0了

原因是因為老師說學生素質太差= ="