Rnd関数の結果が同じになる。

解決

ミサイルまん 2005-05-28 23:36:41 No: 90117

ランダムに１から１００まで表示されるのですが、
フォームを閉じて、再度、フォームを開いて
Command1_Clickを実行しても同じ順で表示されます。

１回目：９９、７８、２２、・・
２回目：９９、７８、２２、・・

Private Sub Command1_Click()

Dim n As Long

n = Int(100 * Rnd) + 1
Text2.Text = n

End Sub

１回目：９９、７８、２２、・・
２回目：１２、５５、０２、・・
と、フォームを閉じて、開いてを行っても
ランダムの順番で表示する方法はありますか？

よろしくお願いします。

３−ｔ 2005-05-29 00:16:59 No: 90118

Randomize ステートメントを調べてみて下さい

ミサイルまん 2005-05-29 00:30:03 No: 90119

３−ｔさん有り難うございます。
まさしく、欲しい結果でした。

ミサイルまん 2005-05-29 00:30:47 No: 90120

解決しました。