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

774RR さん
Azulean さん
shu さん
furu さん
ありがとうございます。

説明不足ですみません。
ネットのを参考にさせて頂きましたが他の方法でもあればお願いします。

   For i = 0 To 200
       Dim r1 As New System.Random(1000)
       Dim r2 As Integer = r1.Next(1, 3000)

       'ここで毎回違う r2 を使って他の処理をしたいのです。  

   Next

■No89024 (なつ さん) に返信
> 774RR さん
> Azulean さん
> shu さん
> furu さん
> ありがとうございます。
> 
> 説明不足ですみません。
> ネットのを参考にさせて頂きましたが他の方法でもあればお願いします。
> 
>    For i = 0 To 200
>        Dim r1 As New System.Random(1000)
>        Dim r2 As Integer = r1.Next(1, 3000)
> 
>        'ここで毎回違う r2 を使って他の処理をしたいのです。  
> 
>    Next

Dim r1 As New System.Random(1000)
For i = 0 To 200
    Dim r2 As Integer = r1.Next(1, 3000)
Next

とすれば,ループ内では異なる値になるが実行しなおしたときにiの値に対するr2の値は同じになります。



Dim r1 As New System.Random()
For i = 0 To 200
    Dim r2 As Integer = r1.Next(1, 3000)
Next

とすれば実行しなおすごとに、iの値に対するr2の値も変わります。

違う r2 というのの合意があなたと読者との間でできていないのでお互いに通じていないっつか。

System.Random は擬似乱数を生成するクラスで、たいていの場合
・１つ new して、その１つを再利用する（毎回 new しない）
・ Random.Next() が返却する値が乱数、呼ぶたびに更新される
・シミュレーション等で再現性が必要な場合以外は引数なしコンストラクタを使う

C# だけど

static void Main() {
    System.Random r2 = new System.Random();
    for (int i=0; i<10; ++i) {
        Console.WriteLine(r2.Next(1, 3000));
    }
}
としとけば、１回実行するたびに乱数が１０個得られるし、実行するたびに違う値になる、っすよ。