Слова на оборот

Слова на оборот.

perevertish Слова на оборот

Первый вариант

Код для кнопки:

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
googleplus Слова на оборот
livejournal Слова на оборот
  Метки: ,
  Евгений
  Просмотров: 2 944
  Запись опубликована в 18:16

6 комментариев

  •  
    'Namespace: Microsoft.VisualBasic
    TextBox2.Text = StrReverse(TextBox1.Text)
     
    ЗЫ: спасибо за интересный ресурс
     
     
     

  • Не работает((( по этим кодам пишет Недопустимый оператор для пространства имени :( По учебнику Угриновича за 9 класс идентификатор требуется :arrow: Помогите!!!!

Есть что сказать? Тогда действуй!


:wink: :twisted: :roll: :oops: :mrgreen: :lol: :idea: :evil: :cry: :arrow: :?: :-| :-o :-P :-D :-? :) :( :!: 8-O 8)