ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Задание №2 «Количество буква(русских) в абзаце».
Рассмотрим документ, который состоит из нескольких абзацев. Эта практическая работа выполняется с тем же документом, что и в задании №1. Наша задача заключается в том, чтобы мы программно определили:
- Номер абзаца, в котором будет, происходит подсчет букв «а»;
- Подсчитали количество букв;
- В конце документа или после абзаца, в котором происходил подсчет, вывели сообщение о количестве букв.
- Вызовем панель «Элементов управления» ВидàПанели инструментов à Элементы управления.
- Подготовим элемент кнопка «CommandButton2» на рабочем листе ниже текста.
- Переименуйте кнопку в «Количество букв ‘а’ в абзаце».
- Для того чтобы, кнопку можно было перемещать по листу, придайте ей формат обтекания по контуру.
- Затем в контекстно-зависимом меню этого объекта выберем команду «Исходный текст» или два раза щелкнем по кнопке. И мы попадаем в редактор в режим написания программы.
Алгоритм выполнения задания следующий:
1. Объявить переменные:
a. b – строковая переменная для размещения в ней выбранного абзаца в документе;
b. k – переменная для хранения количества абзацев в документе;
c. dl – переменная для хранения длины абзаца;
d. Text – переменная для формирования текста-ответа о количестве символов ‘а’ в абзаце;
e. Nab - переменная для ввода номера абзаца, в котором будет происходить подсчет;
f. I - переменная для организации цикла;
g. kol – переменная для подсчета символов ‘а’;
h. REZULTAT– переменная, которая определит область для вывода заголовка.
2. Ввести номер абзаца, используя диалоговое окно.
3. Определить количество абзацев в документе.
4. Проверить существование введенного номера абзаца и выдать сообщение об ошибке, если такого нет
5. В переменную b занести текст всего абзаца.
6. Определить длину абзаца.
7. Организовать цикл по нахождению символа ‘а’.
8. Сформировать текст вывода сообщения.
9. Вставить дополнительный абзац после последнего абзаца документа для вывода сообщения.
10. Вывести текст-сообщение в подготовленный абзац.
11. Установить определенный шрифт, размер и цвет текста-сообщения.
Текст программы:
| Строка программы | Пункт алгоритма |
| Private Sub CommandButton2_Click() | Начало программы |
| Dim b As String | 1a |
| Dim k As Integer | 1b |
| Dim dl As Long | 1c |
| Dim Text As String | 1d |
| Dim Nab As Integer | 1e |
| Dim i As Long | 1f |
| Dim REZULTAT As Range | 1g |
| kol = 0 | |
| Nab = InputBox("Введите номер абзаца ", "Подсчитаем буквы а") | |
| k = ActiveDocument.Paragraphs.Count | |
| If Nab > k Then | |
| MsgBox "В тексте нет такого абзаца", 48, "Предупреждение" | |
| End | |
| End If | |
| b = ActiveDocument.Paragraphs(Nab).Range | |
| dl = Len(b) | |
| For i = 1 To dl | |
| If Mid(b, i, 1) = "а" Or Mid(b, i, 1) = "А" Then kol = kol + 1 | |
| Next i | |
| MsgBox kol | Отладочная печать |
| Text = "Количество букв 'а' в абзаце с номером " & Nab & " - " & kol & "." | |
| ActiveDocument.Paragraphs(k).Range.InsertParagraphAfter | |
| Set REZULTAT = ActiveDocument.Paragraphs(k + 1).Range | |
| With REZULTAT | |
| .InsertBefore Text | |
| .Font.Name = "Arial" | |
| .Font.Size = 14 | |
| .Font.ColorIndex = wdDarkRed | |
| End With | |
| End Sub | Конец программы |
Результат выполнения представлен на рисунке.
Не нашли, что искали? Воспользуйтесь поиском: