Апр 2, 2012 - Уроки Visual Basic.NET 6 комментариев
Слова на оборот
Слова на оборот.
Первый вариант
Код для кнопки:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = StrReverse(TextBox1.Text) End Sub
Второй вариант
Код для кнопки:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As String Dim b As Byte TextBox2.Text = "" b = 1 Do While b <= Len(TextBox1.Text) a = Mid(TextBox1.Text, b, 1) TextBox2.Text = a & TextBox2.Text b = b + 1 Loop End Sub
Метки: Перевертываем слова, Перевертыш
Евгений
Просмотров: 6 374
Запись опубликована в 18:16