Visual Basic While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği
"Visual Basic" Programlama dilinde "While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.
Module Module1
Sub Main()
Dim count As Integer = 0
Dim sum As Double = 0.0
While count < 10
Console.Write("Bir Sayı Girin: ")
Dim number As Double = Convert.ToDouble(Console.ReadLine())
count += 1
sum += number
End While
Dim avg As Double = sum / 10
Console.WriteLine("Ortalama: " & avg)
End Sub
End Module