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

解決

---

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


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

Private Sub Command1_Click()

Dim n As Long

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

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

よろしくお願いします。

編集 削除

---

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

編集 削除

---

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

編集 削除

---

解決しました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。