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

名前

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

本文 ランダムに１から１００まで表示されるのですが、 実行しても同じ結果となります。 １回目：９９、７８、２２、・・ ２回目：９９、７８、２２、・・ Private Sub Command1_Click() Dim n As Long n = Int(100 * Rnd) + 1 Text2.Text = n End Sub よろしくお願いします。