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

"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



İlginizi Çekebilir

VBA Tüm Worksheet'lerin Gizliliğini Kaldırmak

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

VBA 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

VBA Öğrenmenin Avantajları Nelerdir?

VBA Tüm Birleştirilen Hücreleri Kaldırmak