VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

"VBA" Programlama dilinde "1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

Sub sum_numbers()
    Dim s As Integer
    Dim n As Integer
    s = 0
    n = InputBox("Sayi Girin: ")

    For i = 1 To n
        s = s + i
    Next i
    
    MsgBox "Toplam: " & s
End Sub



İlginizi Çekebilir

VBA Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği

VBA Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

VBA Öğrenmenin Dezavantajları Nelerdir?

VBA Diziye Eleman Ekleme

VBA Bir Stringin Büyük Harfe Çevrilmesi