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

解決

---

ランダムに１から１００まで表示されるのですが、
実行しても同じ結果となります。

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

Private Sub Command1_Click()

Dim n As Long

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

よろしくお願いします。

---

Rnd 関数 のヘルプの解説のメモの欄 及び 関連項目に注目

---

回答、ありがとうございます。
実は二重投稿をしており、一方の方で
回答を頂きました。

お手数、お掛けしました。

-----------------------------------
Private Sub Command1_Click()

Dim n As Long
Randomize  ←でランダムの初期化する。

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

---

名前

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

本文

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

※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。

ツイート