如何取亂數

出自VFP Wiki

在2005年5月25日 (三) 02:14由Garfield (對話 | 貢獻)所做的修訂版本
(差異) ←上一修訂 | 最新修訂 (差異) | 下一修訂→ (差異)
跳轉到: 導航, 搜尋

如何取亂數

rand(-1)
for i=1 to 10
  ? rand()
next

=== 如何洗樸克牌 ===
dime pk[52]
for i=1 to 52 
   pk[i]=i
next
rand(-1)
for i=1 to 52
   mtaget = int(rand()*52)+1
   mtemp = pk[ mtaget ]
   pk[mtaget] = pk[i]
   pk[i] = mtemp
next

參考資料

http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=25649