VBA Bir Dizi Tam Sayının Ortalamasını Bulma

"VBA" Programlama dilinde "Bir Dizi Tam Sayının Ortalamasını Bulma" ile ilgili örnek kod aşağıda belirtilmiştir.

Sub Main()
    Dim count As Integer
    Dim sum As Single
    count = InputBox("Sayıların adetini girin:")
    For i = 1 To count
        x = InputBox("Bir tamsayı girin:")
        sum = sum + x
    Next i
    avg = sum / count
    MsgBox "Ortalama: " & avg
End Sub



İlginizi Çekebilir

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

VBA Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

VBA Worksheet'leri Alfabetik Sıraya Sokmak

VBA Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

VBA Bir Sayının Faktöriyelini Bulma Örneği