クラスモジュールとコレクションを使ったゲームを作りたいですけど．． (ID:104810)

名前

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

本文 あんちゃんさま、アドバイスありがとう御座います。 BINGOカードを作るコマンドボタンのソースを自分なりに作ってみましたが、 いまいちアドバイスの内容が分りません……Text11？Text22？Text33？ 以下に記しますんで、Label1.Captionの所にどうやったら、該当する数字全部を綺麗に並べることが出来るのでしょうか？？ すみませんアドバイスお願いします。 Private Sub Command1_Click() Dim intNum As Integer If Not IsNumeric(Text1) Then MsgBox "数字１〜４を入力して下さい", vbOKOnly, "error" Exit Sub End If If Not IsNumeric(Text2) Then MsgBox "数字１〜５を入力して下さい", vbOKOnly, "error" Exit Sub End If If (Val(Text1.Text) <= 4) And (Val(Text2.Text) <= 5) Then mintLaw = Val(Text1.Text) mintCol = Val(Text2.Text) intNum = mintLaw * mintCol Dim ary(1 To 99) As Integer Dim i As Integer, j As Integer, Temp As Integer ' 初期化 For i = 1 To 99 ary(i) = i Next i ' シャッフル For i = 1 To intNum j = Int(Rnd() * 99) + 1 ' 数値をひとつ選ぶ '入れ替え Temp = ary(j) ary(j) = ary(i) ary(i) = Temp Label1.Caption = ary(i) Next i