Пример выполнения задания

1) Тема и название лабораторной работы:

Обработка строковых данных:

Совместная обработка строковой и числовой информации.

2) Фамилия, имя студента, номер группы, номер варианта:

Иванов И., БИН1405, вариант 13.

3) Задание на разработку проекта:

Создайте проект, который реализует задачу ввода с клавиатуры строк a и b, отображает их на форме, а затем обрабатывает, удаляя из строки a все символы, входящие в строку b и расположенные на нечетных позициях строки b. Результат обработки отобразите на форме.

4) Формализация и уточнение задания:

Формализация не требуется

5) Элементы, разрабатываемого проекта:

5.1) Графический интерфейс пользователя:

Форма приложения может иметь такой же вид, как на рис. 4.9.7-1.

Рис. 4.9.7-1. Форма проекта Проект 9

5.2) Таблица свойств объектов:

Определите, установите и сведите свойства в табл. 4.9.7-2.

Таблица 4.9.7-2

Имя	Свойство	Значение свойства
Form1	Name	Form1
Text	Тема 4.9: Обработка строковых данных
Label1	Text	Задание: Ввести с клавиатуры строку, а удалить из нее все символы, стоящие в строке b на нечетных позициях.
ImageAlign	MiddleCenter
Label2	Text	Строка a
ImageAlign	MiddleCenter
Label3	Text	Строка b
Label4	Text	Результат
TextBox1	Name	TextBox1
TextBox2	Name	TextBox2
TextBox3	Name	TextBox3
Button1	Name	Button1
Text	Обработка
Button2	Name	Button2
Text	Конец обработки

5.3) Алгоритмы решения задачи:

Схема алгоритма процедуры Обработка() представлена на
рис. 4.9.7-2.

Рис. 4.9.7-2. Схема алгоритма процедуры Обработка() проекта Проект 9

5.4) Программный код проекта:

Код программы разработанной задачи приведен на рис. 4.9.7-3

Public Class Form1 'Функция ввода исходных данных из TextB ox Function vvod(ByVal T As TextBox) As String Return T.Text End Function 'Процедура вывода результата в TextBox Sub vivod(ByVal z As String, ByRef t As TextBox) If z.Length <> 0 Then t.Text = z Else t.Text = "Все удалено" End If End Sub 'Процедура решения задачи удаления символов из строки Sub Обработка(ByVal b As String, ByRef a As String) Dim d, m, i, j As Short m = CShort(a.Length) 'длина строки a d = CShort(b.Length) 'длина строки b For i = 0 To CShort(d - 1) Step 2 'перебор нечетных символов строки b j = 0 Do While j < m 'перебор всех символов строки a If a.Substring(j, 1) = b.Substring(i, 1) Then a = a.Remove(j, 1) 'пока символы совпадают–удаляем из строки a m = CShort(m - 1)'уменьшаем длину строки a Else j = CShort(j + 1) 'переход к следующему символу строки a End If Loop Next i End Sub Private Sub Button1_Click(sender As Object, _ e As EventArgs) Handles Button1.Click Dim Str1, Str2 As String Str1 = vvod(TextBox1): Str2 = vvod(TextBox2) Обработка(Str2, Str1) vivod(Str1, TextBox3) End Sub Private Sub Button2_Click(sender As Object, _ e As EventArgs) Handles Button2.Click End End Sub End Class

Рис. 4.9.7-3. Программный код проекта Проект 9

6) Результаты выполнения проекта:

Результаты выполнения проекта приведены на рис. 4.9.7-4.

Рис. 4.9.7-4.Результаты выполнения проекта Проект 9

7) Доказательство правильности работы программы:

Дана исходная строка a="aabbssvvffgghh". В строке b="absh" на нечетных местах стоят символы "a" и "s". После их удаления строка а должна иметь вид: "bbvvffgghh".

Полученный вид строки полностью совпадает с результатом, полученным с использованием программы.

Контрольные вопросы

1) Как в программах используются переменные строкового типа?

2) Какие возможности предоставляют методы и функции класса Sysem.String?

3) Как объявляются переменные строкового типа?

4) Какими способами можно присвоить значение переменной строкового типа?

5) Понятие "преобразование типов". Что такое явное преобразование типов? Что такое неявное преобразование типов?

6) Зачем и как устанавливается режим строгой проверки типов?

7) Как преобразовать число в строку и обратно?

8) Для чего применяется конкатенация строк?

9) Какие способы конкатенации строк вы знаете?

10) Как определить количество символов в строке?