کسی می تونی این مسله رو حل کنه .

[sanatoramir]

برنامه ای بنوسید که دو عدد گرفته و در صورتی که عدد دوم مقسوم علیه اول باشد پیغام مناسبی روی لیبل چاپ کند

[VBYOFSKI]

سلام.
همون جور که میدونی یه عدد وقتی مقسوم علیه یه عدد دیگست که وقتی اونو تقسیم بر اون یکی عدد بکنیم باقیمانده نداشته باشه.
توی VB یه عملگر هست به اسم MOD که به صورت زیر نوشته میشه و باقیمانده رو نشون میده.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

الان عدد اول تقسین بر عدد دوم میشه و باقیماندش توی متغیر ریخته میشه.

[sanatoramir]

می تونی من رو بیشتر راهنمای کنید یا برام کدشو بنویس ممنون می شم

[sinaaeeni]

می تونی من رو بیشتر راهنمای کنید یا برام کدشو بنویس ممنون می شم

دوست گرامی
این سورسو من برات تهیه کردم نگاه بکنی 2 خط بیشتر نیست لطفا تلاش کنید تا دوستان هم کمکتون کنند
موفق باشید

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[sanatoramir]

خیلی مردی

به غیر از خودت کمکم کنی بقیه انگار مردن

[sanatoramir]

برنامه بنوسید که اعداد اول کوچیکتر از 100 چاپ کند

برنامه بنوسید که دو عدد را گرفته و عدد زوج بین انها را چاپ کند

برنامه ای بنوسید که اعداد نوسط کادر t1 را دریافت کرده و اعداد روج قبل ان را چاپ کند


اگر این سه تا رو بگی خیلی در حق من برادری کردی چون فردا باید پروژه رو تحویل بدم فقد این سه تا مونده بقی رو خودم حل کردم

کمکم کن

[sinaaeeni]

برنامه بنوسید که اعداد اول کوچیکتر از 100 چاپ کند

برنامه بنوسید که دو عدد را گرفته و عدد زوج بین انها را چاپ کند

برنامه ای بنوسید که اعداد نوسط کادر t1 را دریافت کرده و اعداد روج قبل ان را چاپ کند


اگر این سه تا رو بگی خیلی در حق من برادری کردی چون فردا باید پروژه رو تحویل بدم فقد این سه تا مونده بقی رو خودم حل کردم

کمکم کن

سلام پسر خوب
به خودم و دوستانم توصیه میکنم همیشه ادب و احترام را سر لوحه خود قرار دهیم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[sanatoramir]

ممنون از شما اون دوتا رو رفته بودم تا وسط ها به کمک تو کامل شد

این اخری هست

برنامه بنوسید که اعداد اول کوچیکتر از 100 چاپ کند

[sanatoramir]

همش رو نوشتم ممنون از همه واقعا از ته دل می گم

این برنامه چه مشکلی داره


n = Val(Text1.Text)
m = Val(Text2.Text)
If m < n Then min = m
Else: min = n
End If
bmm = 1
For i = 1 To min
if (n mod i=0)and(m mod i=0)and(i > bmm)

[sanatoramir]

این هم هست

n = Val(Text1.Text)
m = Val(Text2.Text)
If m < n Then min
Else: min = n
For i = 1 To min
If (n Mod i = 0) And (m Mod i = 0) Then
Me.Print i
End If
Next i