「VB.NET」RandomクラスのNextメソッドでランダムな値を取得
構文
Random()
既定のシード値を使用して Random クラスの新しいインスタンスを初期化します。
書式
Dim インスタンス変数名 As new Random
変数名.Next()
関数
Public Overridable Sub NextBytes (buffer As Byte())
指定したバイト配列の要素に乱数を格納します。
使用例
Imports System.Threading Module Module1 Sub Main() 'Random型変数rand1 Dim rndA As New Random() 'Random型変数rand2 Dim rndB As New Random() '2秒の遅延 Thread.Sleep(2000) Dim rndC As New Random() '1番目のオブジェクトrndAに対して異なるシード値が生成 ShowRandNum(rndA) '2番目のオブジェクトrndBに対して異なるシード値が生成 ShowRandNum(rndB) '3番目のオブジェクトrndCに対して異なるシード値が生成 ShowRandNum(rndC) Console.ReadKey() End Sub '関数ShowRandNumの定義 Private Sub ShowRandNum(ByVal rand As Random) Console.WriteLine() '6つのランダムな整数 Dim values(5) As Byte '指定したバイト配列の要素に乱数を格納 rand.NextBytes(values) 'For Eachで乱数を出力 For Each value As Byte In values Console.Write("{0, 6}", value) Next Console.WriteLine() End Sub End Module
実行結果
102 37 11 138 81 111
102 37 11 138 81 111
35 21 167 216 127 48