シャッフルで同じ番号が出てしまうのですが… (ID:104853)

名前

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

本文 シャッフルの所から書きます。 ' シャッフル For i = 1 To intNum j = Int(Rnd() * 99) + 1 ' 数値をひとつ選ぶ '入れ替え Temp = ary(j) ary(j) = ary(i) ary(i) = Temp Next i ' シャッフルした結果を出力 For i = 1 To intNum If i = mintLaw Or i = mintLaw * 2 Or i = mintLaw * 3 Or i = mintLaw * 4 Then 出力用 = 出力用 & ary(i) & vbCrLf Else 出力用 = 出力用 & ary(i) & " " ' " "はスペース End If Next i Label1.Caption = 出力用 こんな感じですね。