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

[Moh3en_f1]

سلام به همتون
من یه می خوام که برنامه ای بنویسم که مقلوب تمام اعداد صحیح رو به دست بیاره:
مثلا: 321/9876 رو به صورت 789/1236 یا 123 رو به 321 تبدیل کنه.

برنامه ای که من نوشتم:

Private Sub Command1_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- اعداد اعشاری رو چاپ نمیکنه.


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

[smart_boy]

برای اینکار تابعی به نام StrReverse در VB وجود دارد.
این هم کد مقلوب کردن:

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

[Moh3en_f1]

يعني نميشه با تابع Do While نوشتش ؟؟؟؟؟؟؟؟؟؟

[Moh3en_f1]

يعني كسي نيست جواب من رو بده من ميخوام با تابع Do While بنويسم بايد چيكار كنم ؟

[mohsen_3]

بیا عزیزم
اینم سورسش
a = InputBox("")
Do While a > 10
m = m & a Mod 10
a = a \ 10
Loop
Print m & a

[afshinsarlak]

سلام
می خوام کمکم کنید یک برنامه ای بنویسم که چهار عدد از ورودی بگیره و پیام مناسبی چاپ کنهمثلا (چهار عدد مساوی هستندیاسه عدد.یا دو عذذ یا هیچ کدام

[Moh3en_f1]

بیا عزیزم
اینم سورسش

a = inputbox("")
do while a > 10
m = m & a mod 10
a = a \ 10
loop
print m & a

آخه عزيزم من كه اون بالا اين برنامه رو نوشتم ولي يه چند تا مشكل داره بخونش بعد جواب بده واقعا نياز دارم كمكم كنيد ؟

[Moh3en_f1]

سلام
می خوام کمکم کنید یک برنامه ای بنویسم که چهار عدد از ورودی بگیره و پیام مناسبی چاپ کنه مثلاً (چهار عدد مساوی هستند یا سه عدد یا دو عدد یا هیچ کدام

بيا عزيزم اينم جواب برنامه اي كه ميخواستي

اول يه text1.text درست كن يه دونه هم command اين كد رو تو command وارد كن !

Private Sub Command1_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