10個いっぺんに乱数を発生させるには？

いしいちゃん 2004-02-16 06:24:40 No: 111820 IP: [192.*.*.*]

どなたかお願いします。このようなコマンドを繰り返すには？
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

編集削除

さくら 2004-02-16 18:24:56 No: 111821 IP: [192.*.*.*]

どんな感じで使うのかは分かりませんが
１０個乱数を発生させテキストに表示させるのなら

Private Sub Command1_Click()
  Dim a As Integer
  Dim ransu As Integer

  For a = 0 To 9
    Randomize
    ransu = Int((20 * Rnd) + 1)
    txt(a).Text = ransu
  Next a
End Sub
参考程度にして後は発展させてみて。
TextBoxはコントロール配列にして10個配置してね。

編集削除