Reverse the Given Number

‘Reversing the Given Number…

Function Reverse(Num)

num_len=len(Num)

for i=0 to len(Num)-1

Rem=Num mod 10

‘msgbox Rem

Num=Num\10

‘msgbox Num

val=val&Rem

print val

Next

Reverse=val

End Function

Num=Inputbox(“Enter a Number to reverse”)

result=Reverse(Num)

msgbox “Reversed Number is      :”&result

thanks & regards,

Baba Fakruddin.D