「VB.NET」RandomクラスのNextメソッドでランダムな値を取得

2021年10月6日

構文
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

VB.net

Posted by arkgame