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 Sayıların Geometrik Ortalamasını Bulma Örneği

VBA 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

VBA Şifrelenmis Worksheet'lerin Şifresini Kaldırmak

VBA Text Wrap Kaldırma

VBA Hesap Makinesini Açmak