sajjadrastin 100 ارسال شده در 14 آبان، ۱۳۹۴ اشتراک گذاری ارسال شده در 14 آبان، ۱۳۹۴ سلام کدی قرار دادم که عدد ادیت تکست یک را میگیرد و به کاربر میگوید که اول است یا مرکب: 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 ارسال شده در 22 آبان، ۱۳۹۴ اشتراک گذاری ارسال شده در 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 ارسال شده در 1 آذر، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 آذر، ۱۳۹۴ دوست عزیز از دستور شرطی sajjadrastin select case end select استفاده میکردی راحتر بود دیگه لازم نیست این همه کدنویسی بکنی لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.