code189a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 9 行

Public Sub Main()
  Dim Counter As Integer

  Debug.Print "Values from Rnd without mapping:" 
  For Counter = 0 to 5
    Debug.Print Rnd()
  Next

  Debug.Print "Values from Rnd mapped to integer range:"