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

سلام به همتون
من یه می خوام که برنامه ای بنویسم که مقلوب تمام اعداد صحیح رو به دست بیاره:
مثلا: 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:

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

کد:

---

Private Sub Command1_Click()

Dim str1 As String
Dim str2 As String
Dim i As Byte

str1 = InputBox("Please give your word")
str2 = ""
For i = 1 To Len(str1)
str2 = str2 & Mid(str1, Len(str1) - i + 1, 1)
Next i

Print str2

End Sub

---

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

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

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

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

نقل قول:

---

نوشته شده توسط mohsen_3 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

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

---

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

نقل قول:

---

نوشته شده توسط afshinsarlak [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

بيا عزيزم اينم جواب برنامه اي كه ميخواستي :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

---