Randomize 語句
初始化隨機數生成器。
Randomize 語句示例
本示例用 Randomize 語句初始化隨機數生成器。由於忽略了數值參數， 所以
Randomize 用 Timer 函數的返回值作為新的隨機數種子值。
Private?Sub?Form_Load()Timer1.Interval?=?1000
Timer1.Enabled?=?True
End?Sub
Private?Sub?Timer1_Timer()
Dim?MyValue
Randomize?'?對隨機數生成器做初始化的動作。
MyValue?=?Int((100?*?Rnd)?+?1)?'?生成?1?到?100?之間的隨機數值。
Text1?=?MyValue
End?Sub