VBA Sayıların Geometrik Ortalamasını Bulma Örneği

168 Okunma VBA

"VBA" Programlama dilinde "Sayıların Geometrik Ortalamasını Bulma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir. 

Sub Main()
    Dim c As Integer
    Dim p As Double
    Dim count As Integer
    Dim x As Double
    Dim gm As Double
    
    c = 0
    p = 1.0
    count = InputBox("Sayı Adeti Girin: ")
    
    While c < count
        x = InputBox("Gerçek Sayı Girin: ")
        c = c + 1
        p = p * x
    Wend
    
    gm = p ^ (1.0 / count)
    MsgBox "Ortalama: " & gm
End Sub
Sayı Ortalama Geometri Örnek Bulma VBA

İlginizi Çekebilir

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

VBA Bir Stringteki Küçük Harfleri Öne Alma Örneği

VBA Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Örnek

VBA Öğrenmenin Dezavantajları Nelerdir?

VBA Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Örne ...