Visual Basic Asal Sayı Testi

[turkmedia]

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