Решение. Этап 1. Математическая часть

Этап 1. Математическая часть

Дано: Строка «Осень. Лес. Солнце. Опушка. Листва.»

(!) Самостоятельно разработать алгоритм на естественном языке и составить блок-схему.

Этап 2. Ввод данных в таблицу Excel

В ячейку А1 вводится строка «Осень. Лес. Солнце. Опушк....»

Этап 3. Определение переменных

Вводятся: St (тип String).

Промежуточные переменные: i (тип Integer) – счетчик цикла, SS (тип String) – искомый символ, x1(тип Integer) – ASCII код ".", L (тип Integer) – длина строки, SSS (тип String) – вырезаем из заданной строки с конца по символу, чтобы сравнить коды первых символов с искомым, x1(тип Integer) – ASCII код первого символа SSS.

Выводятся (результат): n (тип Integer) – количество точек в строке.

Этап 4. Написание процедуры

На рабочем листе Лист1 при помощи Элементов управления создать элемент Кнопка (СommandBatton1).

Private Sub CommandButton1_Click()

Dim St As String

Dim SSS As String

Dim SS As String

Dim L As Integer

Dim x As Integer

Dim x1 As Integer

Dim i As Integer

Dim n As Integer

'Ввод строки

St = Range("A1").Text

SS = "."

'Возвращает ASCII код "."

x1 = Asc(SS)

'Определение длины строки

L = Len(St)

'Подсчет количетсва точек

n = 0

For i = 1 To L

SSS = Right(St, i)

x = Asc(SSS)

If x = x1 Then

n = n + 1

End If

Next i

'Вывод результата в ячейку A2

SSS = "Количество точек в строке равно " + CStr(n)

Range("A2").Value = SSSEnd Sub

 

Этап 5. Выполнение

Перейти на рабочий лист (View®Microsoft Excel или Alt+F11). Выйти из режима Конструктора, левой клавишей мыши (ЛКМ) нажать Кнопку. В ячейке А4 появится результат «Количество точек в строке равно 7».

Этап 6. Переименование листа.

Навести курсор на закладку Лист1, правой клавишей мыши (ПКМ) вызвать контекстное меню, выбрать пункт Переименовать, удалить старое название листа и с клавиатуры набрать новое Количество точек в строке, нажать Enter.

 

Задачи для самостоятельной работы

Задача 17. Написать программу, которая считает сколько раз встречается цифра “9” в строке. Строка вводится из ячейки MS Excel. Цифра “9” вводится с клавиатуры.

 

Задача 18. Написать программу, которая выделяет первое два слово в строке. Вывести номер последнего символа первого слова. Строка вводится из ячейки MS Excel.

 

Оформлением в тетради должно содержать:

1. Условие задачи

2. Входные-выходные данные

3. Переменные: вводимые, выводимые, промежуточные

4. Блок-схема

5. Программа на VBA

6. Результаты вычисления контрольного примера.