如何取亂數

出自VFP Wiki

如何取亂數

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