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

名前

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

本文 自分なりにこうやってみましたがどうでしょうか？ For i = 1 To intNum j = Int(Rnd() * 99) + 1 ' 数値をひとつ選ぶ '入れ替え Temp = ary(j) ary(j) = ary(i) ary(i) = Temp 'Label1.Caption = ary(i) If i = mintLaw Or i = mintLaw * 2 Or i = mintLaw * 3 Or i = mintLaw * 4 Then 出力用 = 出力用 & ary(i) & vbCrLf Else 出力用 = 出力用 & ary(i) & " " ' " "はスペース End If Label1.Caption = 出力用 Next i