１０回繰り返し実行するには？ (ID:82051)

名前

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

本文 はじめまして。下の実行を、１０回ほど繰り返したいのですが、初心者なものでさっぱり分かりません。 ご存知の方がいらっしゃいましたら、ご鞭撻のほどお願いいたします。 Private Sub 乱数発生_Click() '乱数発生スイッチ upper1 = 10 lower1 = -10 If fg1 = 0 Then '初期スピードaの乱数発生 Randomize a = Int((20 * Rnd) + 1) a2 = a Text11.Text = a2 '初期スピードの表示 Text4.Text = a '現在スピードの表示 fg1 = 1 End If End Sub