Текст программы
Private Sub CommandButton1_Click() Начало программы
Dim slovo As String
Dim L As Byte
Dim M As Byte
Dim K As String
Dim D As String
Dim kol as byte
kol = ActiveDocument.Paragraphs.Count
Set myRange = ActiveDocument.Range
(ActiveDocument.Paragraphs(1).Range.Start,
ActiveDocument.Paragraphs(kol).Range.End)
For Each aword In myRange.Words
slovo = aword.Text
L = Len(slovo)
If L <= 1 Then GoTo M1
M = Int(L / 2)
For I = 1 To M
K = Mid$(slovo, I, 1)
D = Mid$(slovo, L - I + 1, 1)
If K <> D Then GoTo M1
Next I
aword.Font.Size = 14
aword.Font.ColorIndex = wdDarkBlue
M1: Next aword
End Sub
Строка программы |
Пункт алгоритма |
Private Sub CommandButton1_Click() |
Начало программы |
Dim slovo As String |
1a |
Dim L As Byte |
1b |
Dim M As Byte |
1c |
Dim K As String |
1d |
Dim D As String |
1e |
Dim kol as byte |
1f |
kol = ActiveDocument.Paragraphs.Count |
2 |
Set myRange = ActiveDocument.Range (ActiveDocument.Paragraphs(1).Range.Start, ActiveDocument.Paragraphs(kol).Range.End) |
3 |
For Each aword In myRange.Words |
4 (Начало внешнего цикла) |
slovo = aword.Text |
5 |
L = Len(slovo) |
6 |
If L <= 1 Then GoTo M1 |
7 |
M = Int(L / 2) |
Подготовка к проверке на палиндром |
For I = 1 To M |
8 (Начало вложенного цикла) |
K = Mid$(slovo, I, 1) |
8 |
D = Mid$(slovo, L - I + 1, 1) |
8 |
If K <> D Then GoTo M1 |
8 |
Next I |
8 (Конец вложенного цикла) |
aword.Font.Size = 14 |
9 |
aword.Font.ColorIndex = wdDarkBlue |
9 |
M1: Next aword |
4 (Конец внешнего цикла) |
End Sub |
Конец программы |
В результате выполнения программы слова-палиндромы будут выделены синим цветом.
