Visual Basic Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği
"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