VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

> ランダムな数字を重複なく配列に格納していく方法がわかりません。
考え方を「配列に順番に格納された数字をランダムな順番にする」という
様にしてみましょう。
#丁度、買ったばかりのトランプ(順番に並んでますよね？)をシャッフル
#する感じかな。

方法としては、
１、配列に数字を順番に入れる
２、配列の上からに順に、ランダムで出した数字の場所(配列の)と入れ替える。
以上の手順でシャッフルされてますので、あとは上から順に取り出します。

#確かサンプル書いた方が居ました。サンプルが必要なら、
#過去ログとログビューワーをダウロードし、検索してみて下さい。
#と、言うか手順が判ればサンプルなんて見るまでも無いんですけどね

ずーっと前に作ったやつなんですが・・・。
MAXを指定してやると、１〜MAXまでの数字をランダムに並び替えてintRndの
配列に入れていくというものです。（きっと・・・）

参考になれば・・・

'結果
Public intRnd() As Integer

'1〜Maxの値の乱数を取得
Sub intRandom(ByVal Max As Integer)

Dim intData() As Integer
Dim i As Integer
Dim intTmp As Integer
Dim intCnt As Integer

ReDim intData(Max + 1) As Integer
ReDim intRnd(Max) As Integer

For i = 1 To Max
    intData(i) = i
Next i

Do

    If intCnt = Max Then
        Exit Do
    End If

    intTmp = Int(((Max - intCnt) * Rnd) + 1)
    intRnd(intCnt) = intData(intTmp)
    intCnt = intCnt + 1

    For i = 0 To Max - intTmp
        intData(intTmp + i) = intData(intTmp + i + 1)
    Next i

Loop

End Sub