Drehwort                    zurück

Dieses kleine Programm dreht Wörter herum .

Hinter dem Textfeld 1 steht der Programmcode  :

PUBLIC SUB TextBox1_Change()

DIM kette AS String

DIM Ketteneu AS String

DIM i AS Integer

kette = textbox1.Text

FOR i = Len(kette) TO 1 STEP -1

Ketteneu = Ketteneu & Mid$(kette, i, 1)

NEXT

textbox2.Text = Ketteneu

END

Sie können das Programm verständlicher machen , wenn Sie die Prozedur Revers unter ein Befehlsfeld kopieren . Dann wird das Wort im Textfeld 1 nur beim Anklicken des Befehlsfeldes umgedreht.

Probieren Sie es mal aus und ändern Sie obiges Programm ab.