ʼ

Randomize [number]
number κЧֵʽ

˵
Randomize ʹ number ʼ Rnd µֵʡ numberʹϵͳʱصֵΪµֵ

ʹ Randomizeһε Rnd ޲ʱʹͬΪֵʹɵֵΪֵ

ע   ҪظУʹֵ Randomize ֮ǰøֵ Rndʹͬ number ֵ Randomize ظǰС
Ӿ˵ʹ Randomize : 

Dim MyValue, Response
Randomize   'ʼ
Do Until Response = vbNo
   MyValue = Int((6 * Rnd) + 1)   '  1  6 ֮
   MsgBox MyValue
   Response = MsgBox ("Roll again? ", vbYesNo)
Loop
Ҫ
汾 1
