1. VisualBasic / Говнокод #13753

    −81

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    Private Sub Command1_Click()
Dim a As String, b As String ' обявим переменные тип текст
For i = 1 To Len(Text1.Text) ' откроем цикл от 1 до количество букв в текстбоксе с шагом 1,,
a = Mid(Text1.Text, i, 1)    ' в переменную а берем по одному букву
b = Asc(a) '- 3              ' переменную а переобразуем в аскикод
Text2.Text = Text2.Text & b  ' //// выводим данные в текстбос
Next                         ' закрываем цикл
End Sub

    Кто первый угадает национальность быдлокодера по комментариям, тот получит кусочек сахару )

    Запостил: Stertor, 08 Сентября 2013

    Комментарии (1) RSS

    • ava Stertor 08.09.2013 21:18 # +1

      <a = Mid(Text1.Text, i, 1) ' в переменную а берем по одному букву>

      "Там руские с сабаками. Или боишься сабаков?"
      ))
      Ответить

    Добавить комментарий