Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:

Задание №2 «Количество буква(русских) в абзаце».

⇐ Предыдущая15161718192021222324Следующая ⇒



Рассмотрим документ, который состоит из нескольких абзацев. Эта практическая работа выполняется с тем же документом, что и в задании №1. Наша задача заключается в том, чтобы мы программно определили:

- Номер абзаца, в котором будет, происходит подсчет букв «а»;

- Подсчитали количество букв;

- В конце документа или после абзаца, в котором происходил подсчет, вывели сообщение о количестве букв.

  1. Вызовем панель «Элементов управления» ВидàПанели инструментов à Элементы управления.
  2. Подготовим элемент кнопка «CommandButton2» на рабочем листе ниже текста.
  3. Переименуйте кнопку в «Количество букв ‘а’ в абзаце».
  4. Для того чтобы, кнопку можно было перемещать по листу, придайте ей формат обтекания по контуру.
  5. Затем в контекстно-зависимом меню этого объекта выберем команду «Исходный текст» или два раза щелкнем по кнопке. И мы попадаем в редактор в режим написания программы.

Алгоритм выполнения задания следующий:

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 Конец программы

 

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

 

⇐ Предыдущая15161718192021222324Следующая ⇒




Не нашли, что искали? Воспользуйтесь поиском:
vikidalka.ru - 2015-2025 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных