VBA Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

"VBA" Programlama dilinde "Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

Sub Main()
    Dim count As Integer
    Dim i As Integer
    Dim product As Single
    count = InputBox("Gerçek Sayı Adeti Girin: ")
    product = 1.0
    For i = 1 To count
        x = InputBox("Gerçek Sayı Girin: ")
        product = product * x
    Next i
    MsgBox "Toplam: " & product
End Sub



İlginizi Çekebilir

VBA Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

VBA Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

VBA Tüm Pivot Tabloları Refresh Etmek

VBA Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

VBA Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği