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

名前

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

本文 回答、ありがとうございます。 実は二重投稿をしており、一方の方で 回答を頂きました。 お手数、お掛けしました。 ----------------------------------- Private Sub Command1_Click() Dim n As Long Randomize ←でランダムの初期化する。 n = Int(100 * Rnd) + 1 Text2.Text = n End Sub -----------------------------------