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

293 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

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

İlginizi Çekebilir

VBA Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Örne ...

VBA Aktif Olan Dışındaki Tüm Worksheet'leri Gizlemek

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

VBA Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Örne ...

VBA Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği

BİLGİ KATEGORİ