استاد ما ازمون خواسته یه برنامه بنویسید که عددی از کاربر گرفته و مشخص کند این عدد اول هست یا خیر....
من به روش زیر برنامه رو نوشتم...البته در نظر داشته باشید که ما جلسه اولمون بود و چیز زیادی یادمون نداده ان...
Private Sub cmdTest_Click()
Dim x As Integer
x = txtnum.Text
If (x = 2) Or (x = 3) Then
MsgBox "Yes...! this number is prime"
Exit Sub
End If
If (x Mod 2) = 0 Or (x Mod 3) = 0 Then
MsgBox "NO....! this number is not prime"
Else
MsgBox "Yes...! this number is prime"
End If
End Sub
مطمپنم الگوریتم بهتری هم هست...اگه میتونید کمک کنید..ممنون میشم
پاسخ با نقل قول