【求助】請教 VB 的副程式撰寫觀念



贊助商連結


頁 : [1] 2

GHman
2004-06-08, 12:16 AM
是我們學校的作業,不過我並不是來要求寫法的,
我只是希望能有高手給點下筆的觀念,我時在一直想不透要怎麼處理阿! ><

題目是這樣:

丟兩個骰子,每個骰子的點數是一到六點,以RND和INT來完成
每次都計算這兩個骰子的值,統計一百次,輸出每個點數(2點到12點)
發生的次數
請儘量以副程式和函式完成

謝謝!
:)

贊助商連結


sonsun
2004-06-08, 01:18 AM
用到的函式也只有 RND 和 INT 或 FIX 在加上回圈~
這個程式應該用不到副程式吧~
而且程式也不會超過10行~
加油~

GHman
2004-06-08, 07:42 AM
喔喔!真的不會超過10行!?

但是那"兩個骰子"要怎麼假設呢?
我就是卡在這裡.......

ahdeng
2004-06-08, 08:27 AM
個人想法!!
"兩個骰子"就設兩個變數,利用RND和INT限制骰子的數字(一到六點),
迴圈一百次,再print每次結果,就這樣!!



最初由 GHman 發表
喔喔!真的不會超過10行!?

但是那"兩個骰子"要怎麼假設呢?
我就是卡在這裡.......

sonsun
2004-06-08, 08:54 AM
ahdeng 兄你的想法是對的~~
只是要如何變成程試而以~~

提示一下
a=Int(Rnd * 7) 可以當第一個骰子
b=Int(Rnd * 7) 可以當第二個骰子

在來自己想吧~~

GHman
2004-06-08, 01:45 PM
恩!謝謝大家!
我努力去∼∼∼^^

ivantw
2004-06-08, 02:00 PM
最初由 sonsun 發表
a=Int(Rnd * 7) 可以當第一個骰子
b=Int(Rnd * 7) 可以當第二個骰子

修正一下公式,應為:Int(Rnd * 6) + 1

sonsun
2004-06-08, 03:24 PM
最初由 Ivan Lin 發表
修正一下公式,應為:Int(Rnd * 6) + 1

SORRY~~
不小心打錯了

PS:
最好在RND的前一行加入Randomize
要不然亂數會每次順序都會一樣:corkysm:

mnkjiul
2004-06-08, 11:10 PM
給你個觀念:
Rnd所run的範圍是0~0.9999..多,所以你可以用你想算的範圍加入。

INT則是把算出來的值變成『整數』

CKH
2004-06-08, 11:23 PM
大哥~妳是哪一位阿~~~
被偶看到了唷~

那個GY仁!! 竟然說要當我們2/3!! 太可惡啦!!
VB也交的心不甘情不願! 好像我們啥都會似的~
掯啦!!