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

114 Okunma VBA

"VBA" Programlama dilinde "Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir. 

Sub Main()
    Dim number As Integer
    Dim isprime As Boolean
    Dim i As Integer
    
    number = InputBox("1 den büyük sayı girin:")
    isprime = True
    
    For i = 2 To number / 2
        If number Mod i = 0 Then
            isprime = False
            Exit For
        End If
    Next i
    
    If isprime Then
        MsgBox number & " asal sayıdır."
    Else
        MsgBox number & " asal sayı değildir."
    End If
End Sub
Asal Sayı Örnek Böl Bulma VBA

İlginizi Çekebilir

VBA Dictionary'deki Değerler İle Listenin Elemanlarını Eşleştirme ...

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

VBA Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

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

VBA Bir String İçindeki Sayıların Toplamını Bulma Örneği