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

23 Okunma VBA

"VBA" Programlama dilinde "1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği" ile ilgili kod örneği aşağıdadır. 

Sub Main()
    Dim s As Integer
    Dim n As Integer
    
    Console.Write("Sayi Girin: ")
    n = CInt(InputBox("Sayi Girin"))
    
    If n > 1 Then
        For i = 1 To n
            If i Mod 2 = 0 Then
                s = s + i
            End If
        Next i
        
        Console.WriteLine("Toplam: " & s)
    Else
        Console.WriteLine("Sayi 1'den buyuk olmalidir.")
    End If
End Sub
Çift Sayı Döngü Toplam Mod VBA

İlginizi Çekebilir

VBA 1'den 100'e Kadar Çift Sayı Toplam Örneği

VBA Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Örne ...

VBA Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

VBA Bir Stringi Ters Çevirmek

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