ランダムな数値を生成する

Dim number As Integer = RandomNumberGenerator.GetInt32(5, 81)
Debug.WriteLine(number)

→ Debug.WriteLineが表示される場所

メモ：低速といっても私のパソコンでは100万回の実行で約0.18秒程度でしたので、通常の用途では十分な速度です。→ 参考：RandomNumberGenerator と Random の比較

メモ：.NET Framework (2019年以前にリリース)では使用できません。

Dim number As Integer = Random.Shared.Next(5, 81)
'Dim r As New Random() '←.NET 6.0(2021年11月)より前の場合この２行を使用します。
'Dim number As Integer = r.Next(5, 81)

Debug.WriteLine(number)

→ Debug.WriteLineが表示される場所

メモ：低精度といっても通常の使用には十分な精度です。→ 参考：RandomNumberGenerator と Random の比較

この例はDoubleの範囲内(±1000兆の1000兆倍の100万倍程度)でランダムな小数を生成します。

実行するには.NET 6.0 (2021年11月リリース)以上が必要です。

Dim number As Double = BitConverter.ToDouble(RandomNumberGenerator.GetBytes(8), 0)
Debug.WriteLine(number) 'たとえば、5.770203524612446E-70 と出力されます。

→ Debug.WriteLineが表示される場所

メモ：低速といっても私のパソコンでは100万回の実行で約0.16秒程度でしたので、通常の用途では十分な速度です。→ 参考：RandomNumberGenerator と Random の比較

メモ：整数を生成する GetInt32メソッドと異なり、GetBytesメソッドでは値の範囲指定はできません。

Dim number As Double = Random.Shared.NextDouble()
'Dim r As New Random() '←.NET 6.0(2021年11月)より前の場合この２行を使用します。
'Dim number As Double = r.NextDouble()

Debug.WriteLine(number) 'たとえば、0.8754042864503406 と出力されます。

→ Debug.WriteLineが表示される場所

メモ：低精度といっても通常の使用には十分な精度です。→ 参考：RandomNumberGenerator と Random の比較

メモ：整数を生成する Nextメソッドと異なり、NextDoubleメソッドでは値の範囲指定はできません。

Dim min As Double = 6.6
Dim max As Double = 11.3

Dim rawNumber As Double = Random.Shared.NextDouble()
'Dim r As New Random() '←.NET 6.0(2021年11月)より前の場合この２行を使用します。
'Dim rawNumber As Double = r.NextDouble()

Dim number As Double = rawNumber * (max - min) + min
Debug.WriteLine(number) 'たとえば、10.06912708342525 と出力されます。

→ Debug.WriteLineが表示される場所

メモ：低精度といっても通常の使用には十分な精度です。→ 参考：RandomNumberGenerator と Random の比較