Pr17

Проект слово перевертыш.

Нужно написать введенное слово в обратном порядке.

   На форме

Textbox1, label1, button1.

 

Private sub button1_click()

Dim S as string

        N as byte

Label1.text=””

N=1

Do while N<=len(textbox1.text)

  S=mid(textbox1.text,N,1)

  Label1.text= S &  label1.text

  N=N+1

Loop

End