معكوس كردن اعداد به روش بازگشتي

با عرض سلام
من ميخواهم برنامه اي بنويسم كه به روش بازگشتي در vb6 كار معكوس كردن را به شكل زير را انجام دهد لطفا كمكم كنيد


1 2 3 4 5
به روش بازگشتي
5 4 3 2 1

سلام

شاید این بتونه کمکت بکنه

کد:

---

StrReverse "SMNsoft"

---

کد:

---

t1(1)
procedure t1()
for i = 2 to 5
t1(i)
print i
end

---

مي دونم منظورت اين كده. آخه استاد مون به ما هم گفت.همين تازه نوشتم و فردا بايد تحويلش بدم.

کد:

---

Function M(N As Long)
    If N = 0 Then
        M = ""
    Else
        M = N Mod 10 & M(N \ 10)
    End If
End Function
Private Sub Command2_Click()
MsgBox M(InputBox(""))
End Sub

---