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

214 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 Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

VBA Tüm Pivot Tabloları Refresh Etmek

VBA 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

VBA Dosyanın Uzantısını Bulma

VBA Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği