Лабораторная работа №10. Строковый тип данных

Лабораторная работа №10. Строковый тип данных

Предварительные сведения

В VBA имеются следующие функции обработки строк:

Преобразование строки в число и обратно осуществляют следующими функциями:

 Для сложения строк применяют следующую операцию:

[Строка1]&[Строка2]

Допустимо также использование операции [Cтрока1] + [Строка2], но предпочтительнее, во избежание путаницы, применять операцию со знаком &.

Приведем несколько примеров фрагментов кода:

A = «123»

В = «45»

С=А+В

(Debug.)Print С

С - ?

A = «123»

В = «45»

С=А & В

(Debug.)Print С

С - ?

A = 123

В = «45»

С=А+В

(Debug.)Print С

С - ?

A = 123

В = «45»

С=А & В

(Debug.)Print С

С - ?

A = 123

В = 45

С=А & В

(Debug.)Print С

С - ?

Пример 1

Даны два слова одинаковой длины. Присвоить переменной k число, равное количеству попарно одинаковых букв.

Выполнение:

1 Экранная форма будет иметь вид (рис. 58):

Рис. 58. Окно формы для примера 1 лабораторной работы № 10

2 Блок-схема алгоритма:

3 Программный код для поиска количества попарно одинаковых букв:

Private Sub CommandButton1_Click()

Dim s1 As String, s2 As String, k As Integer

s1 = TextBox1.Text

s2 = TextBox2.Text

k = 0

For i = 1 To Len(s1)

If Mid(s1, i, 1) = Mid(s2, i, 1) Then k = k + 1

Next

Label4.Caption = Str(k)

End Sub

4 Результат работы программы показан на рис. 59.

Рис. 59. Результат работы программы для примера 1

 лабораторной работы № 10

Пример 2

Задан список из 10 городов. Поменять местами название первого города таблицы и последнего города, заканчивающегося буквой «в».

Выполнение:

1 Экранная форма будет иметь вид (рис. 60).

Рис. 60. Окно формы для примера 2 лабораторной работы № 10

2 Блок-схема алгоритма изображена в приложении 2, стр. 136.

3 Программный код задачи 2:

Dim G(1 To 10) As String, rab As String

Dim L As Integer, k As Integer

Private Sub CommandButton1_Click()

For i = 1 To 10

G(i) = InputBox("Введи город")

ListBox1.AddItem (G(i))

Next

End Sub

Private Sub CommandButton2_Click()

For i = 1 To 10

L = Len(G(i))

If Mid(G(i), L, 1) = "в" Then k = i

Next

rab = G(1)

G(1) = G(k)

G(k) = rab

For i = 1 To 10

ListBox2.AddItem (G(i))

Next

End Sub

4 Результат работы программы показан на рис. 61.

Рис. 61. Результат работы программы для примера 2

лабораторной работы № 10

Пример 3

Задан список из 10 городов. Поменять местами названия двух городов, названия которых оканчиваются на «град».

Выполнение:

1 Экранная форма будет иметь вид, аналогичный примеру 2 (рис. 60).

2 Программный код задачи 3:

Private Sub CommandButton1_Click()

For i = 1 To 10

G(i) = InputBox("Введи город")

ListBox1.AddItem (G(i))

Next

End Sub

Private Sub CommandButton2_Click()

flag = 0

For i = 1 To 10

L = Len(G(i))

If L > 3 Then

If Mid(G(i), L - 3, 4) = "град" Then

If flag = 0 Then

k = i: flag = 1

Else

Exit For

End If: End If: End If

Next

rab = G(i)

G(i) = G(k)

G(k) = rab

For i = 1 To 10

ListBox2.AddItem (G(i))

Next

End Sub

3 Блок-схема данной задачи:

4 Результат работы программы показан на рис. 62.

Рис. 62. Результат работы программы для примера 3

лабораторной работы № 10

Пример 4

С клавиатуры вводится слово. Определить, является ли оно «перевертышем», т.е. читается одинаково слева направо и справа налево.

Выполнение:

1 Экранная форма будет иметь вид (рис. 63).

Рис. 63. Окно формы для примера 4 лабораторной работы № 10

2 Программный код задачи 4:

Private Sub CommandButton1_Click()

Dim x As String, s As String

Dim n, i, flag As Byte

x = TextBox1.Text

n = Len(Trim(x))

flag = 1

For i = 1 To n \ 2  'деление нацело

If Mid(x, i, 1) <> Mid(x, n + 1 - i, 1) Then flag = 0

Next

If flag = 1 Then

    s = "Да, является"

Else

    s = "Нет, не является"

End If

Label3.Caption = s

End Sub

3 Результаты работы программы показаны на рис. 64.

Рис. 64. Результаты работы программы для примера 4

лабораторной работы № 10

Пример 5

Образовать последовательность символов, включив в нее символы данной последовательности, расположенные на нечетных позициях.

Выполнение:

1 Экранная форма будет иметь вид (рис. 65).

Рис. 65. Окно формы для примера 5 лабораторной работы № 10

2 Блок-схема алгоритма:

3 Программный код задачи 5:

Private Sub CommandButton1_Click()

Dim x, y As String

Dim n, i  As Byte

x = TextBox1.Text

n = Len(Trim(x))

y = ""

For i = 1 To n Step 2 'Берутся только нечетные номера начиная с 1

    y = y & Mid(x, i, 1)

Next

TextBox2.Text = y

End Sub

4 Результат работы программы показан на рис. 66.

Рис. 66. Результаты работы программы для примера 5

 лабораторной работы № 10

Варианты

1           Задан список из десяти гоpодов. Подсчитать количество названий, котоpые оканчиваются буквой «в».

2           Даны два слова одинаковой длины. Пpисвоить пеpеменной k число, pавное количеству попаpно различных букв.

3           Задан список из десяти гоpодов. Поменять местами название первого города таблицы и последнего города, заканчивающегося буквой «к».

4           Задан список из десяти гоpодов. Поменять местами название десятого города таблицы и последнего города, заканчивающегося буквой «а».

5           Задан список из пяти имен девочек. Поменять местами первое имя и последнее, заканчивающееся буквой «я».

6           Задан список из десяти гоpодов. Поменять местами название второго города таблицы и последнего города, начинающегося буквой «Н».

7           Образовать последовательность символов, включив в нее символы данной последовательности, расположенные на четных позициях.

8           Задан список из семи имен мальчиков. Поменять местами второе имя и последнее, начинающееся буквой «А».

9           Задан список из десяти городов. Поменять местами названия последнего города таблицы и последнего города, начинающегося буквой «К».

10      Задан список из пяти названий дисциплин. Поменять местами первое и последнее названия.

11      Задан список из десяти городов. Подсчитать количество названий, котоpые начинаются буквой «С».

12      Задан список из десяти городов. Подсчитать количество названий, котоpые оканчиваются на «град».

13      Дано слово. Посчитать количество букв «а» в нем.

14      Задан список из десяти городов. Поменять местами названия двух городов, начинающихся на «Нов».

15      Задан список из десяти городов. Поменять местами названия двух городов, оканчивающихся на «ов».

16      Задан список из пяти названий дисциплин. Поменять местами названия двух дисциплин, оканчивающихся на «ка».

17      Задан список из шести названий дисциплин. Посчитать количество названий, начинающихся с буквы «ф».

18      Задан список из десяти городов. Подсчитать количество названий, котоpые оканчиваются на «ск».

19      Задан список из десяти городов. Поменять местами название первого города таблицы и последнего города, заканчивающегося на «град».

20      Задан список из десяти городов. Поменять местами название второго города таблицы и последнего города, начинающегося на «Нов».

21      Задан список из пяти имен мальчиков. Поменять местами первое имя и последнее, заканчивающееся буквой «й».

22      Образовать последовательность символов, включив в нее символы данной последовательности, расположенные на позициях, кратных трем.

23      Задан список из десяти городов. Подсчитать количество названий, содержащих более семи букв.

24      Задан список из десяти городов. Поменять местами названия первого города и любого другого, которое содержит более семи букв.

25      Задан список из десяти стран. Поменять местами названия двух стран, оканчивающихся на «ия».

26      Задан список из семи пород собак. Поменять местами название первой породы и последней, заканчивающейся на «терьер».

27      Задан список из семи пород собак. Посчитать количество названий пород, оканчивающихся на «ка».

28      Задан список из десяти городов. Посчитать количество названий, у которых предпоследняя буква «с ».

29      Задан список из десяти городов. Поменять местами название первого города таблицы и любого другого, у которого вторая буква «о».

30  Задан список из десяти городов. Присвоить переменной K название города с максимальным числом букв.