rnd.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 12 行

'---------------------------------------------------------
'                     (c) 2000 MCS Electronics
'                           RND.BAS
'---------------------------------------------------------
Dim W As Word

Do
  'get a random number and limit it to be maximum 100
  W = Rnd(100)
  Print W
Loop
End