VBA 1'den N'e Kadar Asal Sayıları Bulma Örneği

191 Okunma VBA

"VBA" Programlama dilinde "1'den N'e Kadar Asal Sayıları Üretme Örneği" ile ilgili örnek kod aşağıda gösterilmiştir.

Sub Main()
    Dim number As Integer
    number = InputBox("Aralık Değeri Girin:")
    
    Dim num As Integer
    For num = 2 To number
        Dim isPrime As Boolean
        isPrime = True
        
        Dim i As Integer
        For i = 2 To num / 2
            If num Mod i = 0 Then
                isPrime = False
                Exit For
            End If
        Next i
        
        If isPrime = True Then
            Debug.Print num
        End If
    Next num
End Sub

Asal Sayı Örnek Bulma Gösterme VBA

VBA 1'den N'e Kadar Asal Sayıları Bulma Örneği

İlginizi Çekebilir

VBA Tüm Kolonları Auto Fit Yapmak

VBA Bir Stringten İlk N Karakteri Kaldırma Örneği

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

VBA Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

VBA Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

BİLGİ KATEGORİ