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

名前

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

本文 > 注意、番号抽出はランダムで、当然二度と同じ番号は出てはいけない。 シャッフルですね。 古典ですが， Dim array(1 To 99) As Integer Dim i As Integer, j As Integer, Temp As Integer ' 初期化 For i = 1 To 99 array(i) = i Next i ' シャッフル For i = 1 To 99 j = Int(Rnd() * 99) + 1 ' 数値をひとつ選ぶ '入れ替え Temp = array(j) array(j) = array(i) array(i) = Temp Next i なんてのはどうでしょう。