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 Dizi Kullanarak N Sayının Toplamını Bulma Örneği

VBA Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

VBA Fibonacci Serisinde N'inci Terimi Bulma Örneği

VBA Yorum İçeren Tüm Hücreleri Vurgulu Yapmak

VBA Bir Stringin Büyük Harfe Çevrilmesi