"Visual Basic" Programlama dilinde "Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

Imports System

Module MainModule
    Sub Main()
        Console.WriteLine("Gerçek Sayı Adeti Girin: ")
        Dim count As Integer = Integer.Parse(Console.ReadLine())
        Dim i As Integer = 0
        Dim product As Single = 1.0F
        For i = 0 To count - 1
            Console.WriteLine("Gerçek Sayı Girin: ")
            Dim x As Single = Single.Parse(Console.ReadLine())
            product = product * x
        Next
        Console.WriteLine("Toplam: " & product)
    End Sub
End Module