رویه فرعی که رشته ای رابگیردوآن امعکوس کند

باوجودرعایت فارسی نویسی پرانتزهاجابجاشده دقت شود

private sub invertstr(s as string)

dim leng,i as integer

dim s,st,invertstring as string

leng=len(s)

for i=0 to leng-1

st=mid(s,leng-i,1)

invertstring=invertstring+st

next i

print invertstring

end sub

s=text1.text

call invertstr(s)

البته هنوزاین حل رادرمحیط برنامه تست نکرده ام

تابع آماده ای وجودداردکه درکتاب برنامه سازی 1فنی حرفه ای به آن اشاره شده به نام

StrReverseکه درواقع کدهای بالاشبیه سازی این تابع راانجام می دهد 

امادونمونه حل دیگه ازکتاب حل تمرین برنامه نویسی که درپست بعدی آن رامعرفی می کنم

()private sub command_click

A=Inputbox("")

 For i=1 to len(A)

s=mid(A,I,1)+s

next  i

print s

end sub

نمونه دیگر

Private sub command_click()

A=inputbox("")

for i=len(A)  to  1 step-1

s=s+mid(A,I,1)

next i

print s

end sub