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

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


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

[smart_boy]

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


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

[Moh3en_f1]

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

[Moh3en_f1]

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

[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



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

[Moh3en_f1]

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



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

اول يه 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