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

25 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 Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

VBA 1'den 100'e Kadar Asal Sayı Toplam Örneği

VBA Bir String İçindeki Sayıların Toplamını Bulma Örneği

VBA İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

VBA Tüm Satırları Auto Fit Yapmak