Kod:
Public Class Form1
Private Sub BtnAsalmi_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnAsalmi.Click
Dim asalmi As Boolean = True
Dim say As UInt64 ‘En büyük tamsayı türü.
For say = 2 To TxtSayi.Text / 2 ‘Sayının yarısına kadar bölen
araştırılacak.
If TxtSayi.Text Mod say = 0 Then ‘Eğer tam bölüyor ise…
asalmi = False
Exit For ‘Daha fazla araştırmaya gerek yok.
End If
Next
If asalmi = True Then ‘Demekki yukarıdaki koşula hiç girmemiş.
MsgBox("ASALDIR")
Else : MsgBox("ASAL DEĞİLDİR. " & say & " sayısı bu sayıyı
böler.")
End If
End Sub
End Class