VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği | Yazılım Ders

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

282 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 While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

VBA Dikdörtgenin Alanını Hesaplama Örneği

VBA Fibonacci Serisinde N'inci Terimi Bulma Örneği

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

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