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

182 Okunma VBA

"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
Sayı Toplam Döngü Sum Input VBA

İlginizi Çekebilir

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

VBA Şimdiki Zamanı Getirmek

VBA Bir Sayının Mutlak Değerinin Hesaplanması

VBA Dosya Taşıma

VBA While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği