Rnd関数の結果が同じになる。 (ID:90117)

名前

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

本文 ランダムに１から１００まで表示されるのですが、 フォームを閉じて、再度、フォームを開いて Command1_Clickを実行しても同じ順で表示されます。 １回目：９９、７８、２２、・・ ２回目：９９、７８、２２、・・ Private Sub Command1_Click() Dim n As Long n = Int(100 * Rnd) + 1 Text2.Text = n End Sub １回目：９９、７８、２２、・・ ２回目：１２、５５、０２、・・ と、フォームを閉じて、開いてを行っても ランダムの順番で表示する方法はありますか？ よろしくお願いします。