Создать проект, который позволит производить преобразование строк с использованием строковых функций.
Запустите в операционной системе Windows систему объектно-ориентированного программирования Visual Basic и создайте новый проект Приложение Windows Forms.
Разместите на форме (рис.8.1.)
Рис.8.1. Строковый калькулятор
1. текстовое поле TextBox1 для вывода строкового аргумента Строка;
2. текстовое поле TextBox2 для вывода числового аргумента Позиция;
3. текстовое поле TextBox3 для вывода числового аргумента Длина;
4. текстовое поле TextBox4 для ввода числового аргумента Код символа;
5. надпись Label1 для вывода результата;
6. шесть кнопок для запуска обработчика событий.
Создадим для каждой кнопки обработчик события, реализующий одну из строковых функций.
Событийная процедура реализующая функцию Left()
Private Sub Button1_Click() Handles Button1.Click
Label1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Val(TextBox2.Text))
End Sub
Событийная процедура реализующая функцию Right()
Private Sub Button2_Click() Handles Button1.Click
Label1.Text = Microsoft.VisualBasic.Right(TextBox1.Text, Val(TextBox2.Text))
End Sub
|
|
Событийная процедура реализующая функцию Mid()
Private Sub Button3_Click() Handles Button3.Click
Label1.Text = Mid(TextBox1.Text, Val(TextBox2.Text), Val(TextBox3.Text))
End Sub
Событийная процедура реализующая функцию Len()
Private Sub Button4_Click() Handles Button4.Click
Label1.Text = Len(TextBox1.Text)
End Sub
Событийная процедура реализующая функцию Asc()
Private Sub Button5_Click() Handles Button5.Click
Label1.Text = Asc(TextBox1.Text)
End Sub
Событийная процедура реализующая функцию Chr()
Private Sub Button6_Click() Handles Button6.Click
Label1.Text = Chr(Val(TextBox4.Text))
End Sub
Запустите проект, в первое поле введите слово, (например, «студентка»), во второе поле – порядковый номер символа, (например, 1), в третьем поле – количество вырезаемых символов, (например, 7). Кликните по кнопке Mid(). На метке появится слово «студент».
Введите в текстовое поле возле кнопки Chr() любой символ от 0 до 255, (например, 200) и кликните по кнопке Chr(). На метке появится символ И.