重複しない乱数を作成しているのですが・・・ (ID:126773)

名前

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

本文 ４桁の数字をRnd関数を使って作成しています。１１２３のように４桁の中に同じ数字が出ないようにしたいと思っています。まず配列を使って乱数を一つづつ入れていき、条件判断で隣同士の数字を比べ同じ数字だったら乱数をつくり直すというようにしているのですが同じ数字が出てしまいます。過去ログも拝見しましたがよく理解できませんでした・・・。本当に初心者な事で申し訳ないのですがよろしくお願いします。 Dim strRndnum(3) As String For i = 0 To 3 Randomize strRndnum(i) = Int(Rnd * 10) '乱数を発生させる Next i For i = 0 To 2 For j = i + 1 To 3 If strRndnum(i) = strRndnum(j) Then Randomize strRndnum(j) = Int(strRndnum(j) * Rnd) End If Next j Next i