VBA While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

83 Okunma VBA

"VBA" Programlama dilinde "While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir. 

Sub CalculateAverage()
    Dim count As Integer
    Dim sum As Double
    Dim number As Double
    Dim avg As Double

    count = 0
    sum = 0

    Do While count < 10
        number = InputBox("Bir Sayı Girin:")
        sum = sum + number
        count = count + 1
    Loop

    avg = sum / 10

    MsgBox "Ortalama: " & avg
End Sub
Döngü While Ortalama For Loop VBA

İlginizi Çekebilir

VBA Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

VBA Dictionary'deki Değerler İle Listenin Elemanlarını Eşleştirme ...

VBA Dizideki Bir Elemanı Döngü İle Arama Örneği

VBA Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

VBA Bir Stringin Küçük Harfe Çevrilmesi