تشخیص اعداد اول و مرکب

[sajjadrastin 100]

سلام

کدی قرار دادم که عدد ادیت تکست یک را میگیرد و به کاربر میگوید که اول است یا مرکب:

Sub Button1_Click
If EditText1.Text="1" Then
Msgbox("عدد 1 نه اول است و نه مرکب","")
Else
If EditText1.Text="2" Then
Msgbox("عدد 2 اول است","")
Else
If EditText1.Text="3" Then
Msgbox("عدد 3 اول است","")
Else
If EditText1.Text="5" Then
Msgbox("عدد 5 اول است","")
Else
If EditText1.Text="7" Then
Msgbox("عدد 7 اول است","")
Else
If EditText1.Text="11" Then
Msgbox("عدد 11 اول است","")
Else
If EditText1.Text="13" Then
Msgbox("عدد 13 اول است","")
Else
If EditText1.Text mod 2 = 0 Then
Msgbox("عدد"&" "&EditText1.Text&" "&"مرکب است","")
Else 
If EditText1.Text mod 3 = 0 Then
Msgbox("عدد"&" "&EditText1.Text&" "&"مرکب است","")
Else 
If EditText1.Text mod 5 = 0 Then
Msgbox("عدد"&" "&EditText1.Text&" "&"مرکب است","")
Else 
If EditText1.Text mod 7 = 0 Then
Msgbox("عدد"&" "&EditText1.Text&" "&"مرکب است","")
Else 
If EditText1.Text mod 11 = 0 Then
Msgbox("عدد"&" "&EditText1.Text&" "&"مرکب است","")
Else 
If EditText1.Text mod 13 = 0 Then
Msgbox("عدد"&" "&EditText1.Text&" "&"مرکب است","")
Else 
Msgbox("عدد"&" "&EditText1.Text&" "&"اول است","")
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

سورس پیوست شد.

 

adadaval.zip

[jen0099 22]

با درود برشما

کدی که قرار دادید مشکل داره

مشکلش اینه که اگه عدد بر عدد اولی بزرگتر از ۱۳ بخش پذیر باشه میگه اوله درحالی که اینطور نیست

شما باید کد عدد یک رو نگه دارید و برا بقیه از این نمونه کد استفاده کنید

Dim a as int =edittext1.text 
Dim Aval as boolean
Aval=true
For I= 2 to edittext1.text-1
If I mod a =0 then
Aval=false
End if
Next

در ضمن الان به کامپیوتر دسترسی ندارم اگه کد مشکلی داشت به بزرگی خودتون ببخشید

[تک1 71]

دوست عزیز از دستور شرطی 

sajjadrastin

 

select case

end select

 

استفاده میکردی راحتر بود دیگه لازم نیست این همه کدنویسی بکنی