Работа со строками - VB (63047)

Формулировка задачи:

Помогите составить какую нибудь легкую программу со строками + форма

Например, моя однокурсница составила такую программу :

Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, Text3.Text, Text2.Text)
End Sub
 
Private Sub Command2_Click()
Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text)
End Sub
 
Private Sub Form_Load()
Text2.Text = "е"
Text1.Text = "ввести текст"
Text3.Text = "и"
End Sub

мне тоже надо составить типо такого примера

Решение задачи: «Работа со строками»

textual
                            Листинг программы 
                        

                            Private Sub Form_click()
   s = InputBox("Введите строку:", , _
                "Вот так и строка может пойти по кругу. Да...")
   pi = 3.14159265358979
   l = Len(s)
   
   x0 = ScaleWidth / 2
   y0 = ScaleHeight / 2
 
   For i = 1 To l
      CurrentX = x0 * (1 + 2 / 3 * Cos(2 * pi * i / l))
      CurrentY = y0 * (1 + 2 / 3 * Sin(2 * pi * i / l))
      Print Mid(s, i, 1)
   Next i
End Sub
                        