重複しない乱数発生

質問

初めて投稿させて頂きます。
サイコロを振って、一度出た目はもう出ないような
ゲームをプログラミングしています。

Dim i As Integer
Dim j As Integer
Dim t As Integer
Dim r(6) As Integer 'コンピュータ
Dim b As Integer 'プレイヤー

Private Sub Command1_Click()
b = Val(Text2.Text)

Randomize
r(6) = Int(Rnd * 6 + 1) '1～6までの乱数発生
Text1.Text = r(6)

For i = 1 To n
r(i) = i 'r(i)～r(n)に1～nの値を格納
Next i
For i = n To 2 Step -1
j = Int((i - 1) * Rnd() + 1) '1～i-1の範囲の乱数
t = r(i): r(i) = r(j): r(j) = t 'r(i)とr(j)の交換
Next i
For i = 1 To n
Text1.Text = r(i)
Next i

If r(i) < j Then
Label2.Caption = "あなたの勝ちです"
Else
Label2.Caption = "あなたの負けです"
End If

幾つか考えてこれで落ち着いたのですが、これでは
まだ重複してしまいます。
どこが問題なのかご指摘頂けるようお願いします。
一度出た目は出ないようにするので、全部で６回試行
することになります。またその６回分の結果を表示したいのですが、

Text3.Text = r(1)
Text4.Text = r(2)
Text5.Text = r(3)
Text6.Text = r(4)
Text7.Text = r(5)
Text8.Text = r(6)

としてしまうと全てに0が表示され、結果が表示されません。
これについても回答をお願いします。
まだ初心者ですが、よろしくお願いします。

回答No.7

Werner

#2です。
> 参考ＵＲＬに行ってみたんですが、シャッフルする際は参考ＵＲＬのところにも書いてあったようにArray関数を使わないといけないですか？
ん？参考URLのarrayはシャッフル対象の配列ですよ。（関数じゃないです。）

>> 1. 1番目の要素と、1～6番目（乱数）の要素を入れ替え。
> 最初の1番目の要素は乱数ではないんですよね？ということは、最初に配列r(6)として、この6つの配列に何か数字を入れないといけないということでしょうか？
どの要素も乱数ではないです。（乱数をシャッフルしたいなら乱数で良いけど、乱数ならもうシャッフル必要ない…。）
シャッフルするのですから要素はシャッフル前に準備しておきます。
今回の場合は1～6の数値を入れておけばよいでしょう。
乱数は何番目の要素と入れ替えるかを決定するために使います。

> 図付きで説明してあったのでなんとなく何が起こっているのかは分かるんですが、
とりあえず具体的にコードのどこで何をしているのかが分かるようにしましょう。
（コードを目でたどってみたり、実際に実行させてみるなどして）

> この場合１～６までの乱数を発生させているので、このnは６なのかなって思っています。
その本ではどこかでnに6を代入していたのかもしれませんが、
少なくともこの質問で提示されたコード内にはnに何かを代入しているところはないです。
どこかでちゃんとnに6を代入していますか？

お礼

>どこかでちゃんとnに6を代入していますか？
言われてみればそうです…このプログラムではどこにもnは入れてないですね…。

シャッフルについてですが、Wernerさんの解説だと私の組んだプログラムのr(6) = Int(Rnd * 6 + 1)はおかしいですね。シャッフルをするとしたら、r(6)には要素を入れて、何番目かということ(私のではiとjにあたると思いますが)を乱数にすべきですね。

すごくわかりやすい説明でした。
ありがとうございます。
意見を参考にして少し自分で組んでみます。