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

42 Okunma VBA

VBA kullanarak, 1'den 100'e kadar olan asal sayıların toplamını şu şekilde hesaplayabilirsiniz.. 

Public Function AsalSayiToplami() As Long

    Dim toplam As Long
    Dim i As Long, j As Long
    Dim asal As Boolean
    
    For i = 2 To 100

        asal = True

        For j = 2 To i - 1
            If i Mod j = 0 Then
                asal = False
                Exit For
            End If
        Next j
        
        If asal = True Then
            toplam = toplam + i
        End If

    Next i
    
    AsalSayiToplami = toplam

End Function

Bu fonksiyon çağırıldığında sonuç 1060 dönecektir..

VBA

İlginizi Çekebilir

VBA Dosya Boyutunu Öğrenme

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

VBA Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

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

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