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

200 Okunma VBA

"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
Dizi Tamsayı Array Ortalama Sayı VBA

İlginizi Çekebilir

VBA Dosya Varsa Oluşturmama

VBA Şifrelenmis Worksheet'lerin Şifresini Kaldırmak

VBA Tüm Gizli Satır ve Sütunları Görünür Hale Getirmek

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

VBA Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği