dim i as integer, m as integerdim tem as string ,Str_tem as stringi = text1.texttem =Cstr(i)tem = StrReverse(tem)i = val(tem)print i
