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 Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği

VBA Bir Stringin Küçük Harfe Çevrilmesi

VBA Bir Sayının Kuvvetinin Hesaplanması

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

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