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

34 Okunma VBA

"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
Dizi Array Toplam Örnek Bulma VBA

İlginizi Çekebilir

VBA Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

VBA Bugünün Tarihini Getirmek

VBA Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Örnek

VBA İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

VBA Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Örne ...