رفتن به مطلب

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


sajjadrastin

ارسال های توصیه شده

سلام

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 2 هفته بعد...

با درود برشما

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

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

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

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
در ضمن الان به کامپیوتر دسترسی ندارم اگه کد مشکلی داشت به بزرگی خودتون ببخشید :D
لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 2 هفته بعد...

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

sajjadrastin

 

select case

end select

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...