C# と VB.NET の質問掲示板

■No38363 (ウヌ さん) に返信
> 　　Dim i As Integer = 0
>     Dim Labels(10) As Label
>     Dim arbefore As New ArrayList
>     Dim arafter As New ArrayList
> 
> 　　Do
>         arafter.Add(arbefore(Int(Rnd() * (10 - i))))
>         arbefore.Remove(Int(Rnd(0) * (10 - i)))
>             i += 1
>     Loop While i <= 9
> 
>     Label1.Text = arafter(0)
>     Label2.Text = arafter(1)
>     Label3.Text = arafter(2)
>     Label4.Text = arafter(3)
>     Label5.Text = arafter(4)
>     Label6.Text = arafter(5)
>     Label7.Text = arafter(6)
>     Label8.Text = arafter(7)
>     Label9.Text = arafter(8)
>     Label10.Text = arafter(9)
> 
>     i = 0
>     arbefore.Add(1)
>     arbefore.Add(2)
>     arbefore.Add(3)
>     arbefore.Add(4)
>     arbefore.Add(5)
>     arbefore.Add(6)
>     arbefore.Add(7)
>     arbefore.Add(8)
>     arbefore.Add(9)
>     arbefore.Add(10)
>     arafter.Clear()
> 
> とプログラムしても、Label1〜Label10にかぶった数字が出てしまいます。1〜10までランダムにそしてどれも異なるようにするにはどうすればいいのでしょうか？
> 
> VB2005、XPです。

このコードを見ても「何をしたいのか」がわかりません。
・Labeles は何のために宣言しているの？
・arbefore を宣言して、値が入っていないのに Remove するとエラーになりませんか？
・Label1〜Label10 に値を設定した後で arbefore.Add する理由は？

ご自分で書いたコードが「何をしているか」を理解していますか？
それこそ、ご自分で書いたコードですか？

課題で出たから仕方なく、のような状態であれば、まずは質問する前に自分でコードの流れを考えてみるのがいいと思います。

■No38366 (επιστημη さん) に返信
>>1〜10までランダムにそしてどれも異なるようにするにはどうすればいいのでしょうか？
> 
> 1〜10 の入った配列を乱数でかき混ぜてはいかがでしょうか。

もう、これが答えとしか思えないんですが。

int list[10];
for(int i = 0; i < 10;i++)
{
   list[i] = i;
}
Random rnd = new Random();
for(int i = 0; < 100; i++)
{
   int index1 = rnd.Next(10);
   int index2 = rnd.Next(10);
   int tmp = list[index1];
   list[index1] = list[index2];
   list[index2] = tmp;
}

ビルドしてません。適当手書き。

■No38369 (ウヌ さん) に返信
>>Tips7：トランプのシャッフル
>>http://www.interq.or.jp/www-user/komurak/tips/tranp.html
> 
> このサイトも見たんですが、それでも分からなかったのです。それに、そのまま実行すると青線ひかれます。

青線が引かれる原因の箇所である、iの型をLong→Integerに変更すればいいです。

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim colBefore As Collection
        Dim colAfter As Collection
        Dim i As Integer  'Long→Integerに変更

        colBefore = New Collection
        colAfter = New Collection

	'colBefore にセットされる値
	'1,2,3,4,5,6,7,8,9,10,11,12,13
        For i = 1 To 13
            colBefore.Add(CStr(i))
        Next

	'colBefore が無くなるまで繰り返す
        Do Until colBefore.Count = 0
	　　'1回目 1〜13 の中から乱数値を取得　例 i=5　 　	
	　　'2回目 1〜12 の中から乱数値を取得　例 i=9　 　	
	　　'3回目 1〜11 の中から乱数値を取得　例 i=3　 　	
            i = Int(Rnd(1) * (colBefore.Count - 1)) + 1

	　　'1回目 colAfterに乱数値を登録　例 i=5
	　　'2回目 colAfterに乱数値を登録　例 i=9
	　　'3回目 colAfterに乱数値を登録　例 i=3
            colAfter.Add(colBefore.Item(i))

	　　'既にcolAfterに登録した乱数値を削除(同じ乱数値を出さないため)
	　　'1回目 colBeforeを1つ削除(乱数値) 例 i=5
	　　'2回目 colBeforeを1つ削除(乱数値) 例 i=9
	　　'3回目 colBeforeを1つ削除(乱数値) 例 i=3
            colBefore.Remove(i)
        Loop

	'colAfterにシャッフルされた値がセットされたので、全て表示　 　	
        For i = 1 To 13
            Debug.Print(colAfter.Item(i))
        Next

   End Sub

■No38363 (ウヌ さん) に返信

この辺りにブレークポイントを仕掛けて
after にどの値が追加されて、before からどの値が削除されたのか
本来、どの値が削除されるべきなのか確認してみてはいかがでしょうか。
>     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
>         Do
>             arafter.Add(arbefore(Int(Rnd() * (10 - i))))
>             arbefore.Remove(Int(Rnd(0) * (10 - i)))
>             i += 1
>         Loop While i <= 9
> 
>         Label1.Text = arafter(0)

■No38565 (ウヌ さん) に返信
> じっくり読ませていただきました。そして、自分なりに、13ではなく10個の数字を数列化しました。確かに、重複なく数字が並ぶようになりました。
> しかし、いつも10が最後になってしまいます。Collectionはインデックスが0からみたいなので、修正しようとしましたが、

あら、ほんとですねｗ　気が付きませんでした、そのサイトの方がわざとそうしたのかバグなのか･･･　教えてあげた方がいいかもね。
i = Int(Rnd(1) * (colBefore.Count - 1)) + 1　→　i = Int(Rnd(1) * colBefore.Count) + 1　にする必要がありますね。

> どうしても、colAfter.Add(colBefore.Item(i))の行でエラーが起こります。たびたび申し訳ありませんが、回答よろしくお願いします。

コレクション インデックスのサイズは、1 以上である必要があります。
colBefore.Item(i)のiの値に0がセットされると、このエラーとなります。

修正ソース

        Dim colBefore As Collection
        Dim colAfter As Collection
        Dim i As Integer

        colBefore = New Collection
        colAfter = New Collection

        '値は0〜9だけど、コレクション インデックスは、1〜10だよ。
        For i = 0 To 9
            colBefore.Add(CStr(i))
        Next

        Do Until colBefore.Count = 0
            'コレクション インデックスのサイズは、1 以上だから、最後に＋１して、1〜10とする。        
            i = Int(Rnd(1) * colBefore.Count) + 1
            colAfter.Add(colBefore.Item(i))
            colBefore.Remove(i)
        Loop
        
        'コレクション インデックスのサイズは、1 以上だから、1〜10とする。でも値は、0〜9だよ。
        For i = 1 To 10
            Debug.Print(colAfter.Item(i))
        Next


επιστημηさんが、別のシャッフルの方法について、下記のBlogを書かれております。
http://blogs.wankuma.com/episteme/archive/2009/07/13/177448.aspx
上記の内容を理解されたら、別のシャッフルの方法についても勉強してみてくださいね。

VB.NETで書きなおしてみた。

Imports System.Collections.Generic

Module Program
  Sub Main()
    Dim colBefore As New List(Of Integer)
    Dim colAfter As New List(Of Integer)

    For i = 0 To 9
      colBefore.Add(i)
    Next

    Dim rnd As New System.Random
    Do Until colBefore.Count = 0
      dim i as Integer = rnd.Next(colBefore.Count)
      colAfter.Add(colBefore(i))
      colBefore.RemoveAt(i)
    Loop

    For Each item As Integer In colAfter
      Console.Write("{0} ", item)
    Next
  End Sub
End Module