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


いしいちゃん  2004-02-16 06:24:40  No: 111820

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

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

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個配置してね。


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




  


  このエントリーをはてなブックマークに追加