مقلوب عدد صحیح

[aleas2]

سلام خسته نباشید دوستان یه برنامه میخوام بنویسم مقلوب یه عدد صحیح رو بدست بیاره قبلا تو دبیرستان نوشته بودم ولی یادم رفته البته بجز این دو روش

Dim x As Integer
x = InputBox("Number")
Print StrReverse(x)




For i = Len(Text1.Text) To 1 Step -1
Text2.Text = Text2.Text + Mid(Text1.Text, i, 1)
Next i

[MohammadGh2011]

سلام عليکم
کد زير رو بررسي کنيد البته بيشتر از دو رقم رو نميتونه حساب کنه

Dim a, b, c, d As Integer
a = Text1
b = a \ 10
c = a Mod 10
Label1.Caption = c * 10 + b

موفق باشيد

[aleas2]

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

[MohammadGh2011]

اين روش جواب ميده:
N = Val(InputBox("Enter a Number:"))
Do While N > 0
R = N Mod 10
C = CStr(R) + C
Print R;
N = N \ 10
Loop

موفق باشيد

[majid.fe]

این یکی جواب میده. خودم نوشتم.

Private Sub Command2_Click()
n = Val(Text1.Text)
a:
r = n Mod 10
n = n \ 10
Label3.Caption = Label3.Caption + Str(r)
If n > 0 Then GoTo a:
End Sub