اینو بگیر یه فرم می خواد و یه دکمه با یه تکست باکس . اسم تکست باکسو عوض نکن بعد تو روال کلیک دکمه ات اینو تایپ کن
Dim N, X, i, primnum As Decimal
Dim ISprime As Boolean
N = TextBox1.Text
X = sqrt(N)
ISprime = True
If N = 2 Then
MsgBox("خره! مسخره کردی؟ معلومه که اوله", MsgBoxStyle.OKOnly, "چهههههه؟")
Exit Sub
End If
If (N Mod 2) = 0 Then 'اعداد زوج هیچگاه اول نیستند بجز 2
ISprime = False
MsgBox("خیر این عدد اول نیست")
Exit Sub
End If
If ISprime = True Then
For i = 2 To X
If (N Mod i) = 0 Then
ISprime = False
Exit For
End If
Next (i)
If ISprime = True Then
MsgBox("بله این عدد اول است")
Else
MsgBox("خیر این عدد اول نیست")
End If
End If
بعد از اجرا...عددت رو تو تکست باکس مینویسی و دکمه رو می زنی اگه عددت خیلی بزرگ باشه طول میکشه.