Visual Basic programlama dilinde rastgele float yaratmak için aşağıdaki örnek kod kullanılabilir..

Imports System

Namespace ConsoleAppTest

    Friend Class Program

        Private Shared Sub Main(ByVal args As String())
            Dim myFloat = FloatYarat(1, 10)
            Console.WriteLine(myFloat)
        End Sub

        Private Shared Function FloatYarat(ByVal min As Single, ByVal max As Single) As Single
            Dim random As Random = New Random()
            Dim val As Double = (random.NextDouble() * (max - min) + min)
            Return val
        End Function

    End Class

End Namespace

FloatYarat metodu minimum ve maksimum değer aralığında bir float yaratacaktır. Yukarıdaki örnekte 1 ile 10 arasında bir float değer yaratılması istenmiştir.