Randomize

应用示例

'!TITLE "初始化随机数生成指令Rnd的随机数种子"
' 创建、显示大于0小于1的随机数
Sub Sample_Randomize

  Dim aaa As Single
  Dim bbb As Integer

  ' 初始化随机数种子
  Randomize

  For bbb = 1 to 5
    ' 生成大于0小于1的随机数，代入aaa中
    aaa = Rnd

    ' 在讯息输出视窗中显示随机数
    PrintDbg aaa

  Next

End Sub