Question

How to generate random double number in a range with VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function GetRandomDoubleNumber(ByVal minimum As Double, ByVal maximum As Double, random As Random) As Double
        Return random.NextDouble() * (maximum - minimum) + minimum
    End Function

    Public Shared Sub Main()
		Dim random As Random = New Random()
		
        For i As Integer = 0 To 10 - 1
            Console.WriteLine(GetRandomDoubleNumber(3.14, 8.91, random))
        Next
    End Sub
End Class

 
 
 
 
' run:
'
' 5.91946152886816
' 3.75784403131243
' 8.14431732693888
' 8.13543624726843
' 7.69792021925464
' 6.11569248796706
' 4.68420732518388
' 3.92077062459698
' 4.5401024513273
' 3.18097260240045
'

 

70+ SQL courses for beginners and professionals