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

"VBA" Programlama dilinde "Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir.

Sub Main()
    Dim num As Integer
    Dim numbers() As Integer
    Dim sum As Integer
    
    num = InputBox("Kaç tane sayı gireceksiniz: ")
    ReDim numbers(num - 1)
    
    For n = 0 To num - 1
        numbers(n) = InputBox("Sayı giriniz: ")
    Next n
    
    For i = 0 To UBound(numbers)
        sum = sum + numbers(i)
    Next i
    
    MsgBox "Dizideki tüm elemanların toplamı: " & sum
End Sub



İlginizi Çekebilir

VBA 1'den N'e Kadar Asal Sayıları Bulma Örneği

VBA Dosya Silme

VBA Bir Sayının Faktöriyelini Bulma Örneği

VBA Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

VBA Hesap Makinesini Açmak