مقلوب کرد تمام اعداد صحیح ( فوری ! )

واضح آرشیو وب فارسی:سایت ریسک: Moh3en_f126-02-2009, 08:56 PMسلام به همتون من یه می خوام که برنامه ای بنویسم که مقلوب تمام اعداد صحیح رو به دست بیاره: مثلا: 321/9876 رو به صورت 789/1236 یا 123 رو به 321 تبدیل کنه. برنامه ای که من نوشتم: Private Sub Command 1_Click() intA = InputBox("Lotfan Add Ra Vared konid"") Do While intA >= 10 B = B & intA Mod 10 intA = intA 10 Loop Print B & intA End Sub 1- اعداد رو تا 10 رقم مقلوب میکنه و من میخوام بیشتر مقلوب کنه. 2- اگه قبل از عدد 0 بزنی 0 رو چاپ نمیکنه مثلا 0123 رو 321 چاپ مبکنه و من مبخوام 3210 چاپ کنه. 3- اعداد اعشاری رو چاپ نمیکنه. تو رو خدا اگه کسی جوابش رو میدونه بگه خیلی ضروری هستش :41: smart_boy26-02-2009, 10:25 PMبرای اینکار تابعی به نام StrReverse در VB وجود دارد. این هم کد مقلوب کردن: !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! Moh3en_f127-02-2009, 09:52 AMيعني نميشه با تابع Do While نوشتش ؟؟؟؟؟؟؟؟؟؟ Moh3en_f101-03-2009, 03:25 PMيعني كسي نيست جواب من رو بده من ميخوام با تابع Do While بنويسم بايد چيكار كنم ؟ :41: mohsen_301-03-2009, 05:12 PMبیا عزیزم اینم سورسش a = InputBox("") Do While a > 10 m = m & a Mod 10 a = a 10 Loop Print m & a afshinsarlak01-03-2009, 07:00 PMسلام می خوام کمکم کنید یک برنامه ای بنویسم که چهار عدد از ورودی بگیره و پیام مناسبی چاپ کنهمثلا (چهار عدد مساوی هستندیاسه عدد.یا دو عذذ یا هیچ کدام Moh3en_f102-03-2009, 01:51 PMبیا عزیزم اینم سورسش a = inputbox("") do while a > 10 m = m & a mod 10 a = a 10 loop print m & a آخه عزيزم من كه اون بالا اين برنامه رو نوشتم ولي يه چند تا مشكل داره بخونش بعد جواب بده واقعا نياز دارم كمكم كنيد ؟ :41: Moh3en_f102-03-2009, 01:58 PMسلام می خوام کمکم کنید یک برنامه ای بنویسم که چهار عدد از ورودی بگیره و پیام مناسبی چاپ کنه مثلاً (چهار عدد مساوی هستند یا سه عدد یا دو عدد یا هیچ کدام بيا عزيزم اينم جواب برنامه اي كه ميخواستي :31: اول يه text1.text درست كن يه دونه هم command اين كد رو تو command وارد كن ! Private Sub Command 1_Click() a = InputBox("Number 1") b = InputBox("Number 2") c = InputBox("Number 3") d = InputBox("Number 4") If a = b And b = c And c = d Then Text1.Text = ("4 Adad Mosavi hatand") ElseIf (a = b And b = d) Or (a = c And c = d) Or (b = c And c = d) Or (a = b And b = c) Then Text1.Text = ("3 Adad Mosavi hastand") ElseIf a = b Or a = c Or a = d Or b = c Or b = d Or c = d Then Text1.Text = ("2 Adad mosavi hastand") Else Text1.Text = ("hic kodom mosavi nistand") End If End Sub سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 333]