Áèëåò ¹2

                         1

Do While L  } S âûïîëíÿåòñÿ

       S            }åñëè L-èñòèíà

Do                  }S âûïîëíÿåòñÿ

       S              }ïîêà L-èñòèíà

Loop While L }

Do             }S âûïîëíÿåòñÿ

       S         }âå÷íî, ïîêà íå

[exit do]     } áóäåò ïåðåõîäà

Loop          } ê exit do

While L      }òî æå, ÷òî è

        S         }Do while...Loop

Wend          }

Do Until L  }S âûïîëíÿåòñÿ

        S         }åñëè L-ëîæü

Loop           }

Do                }S âûïîëíÿåòñÿ

        S           }ïîêà L-ëîæü

Loop Until L}

for i=i₀ to i_ê step h}S âûïîëíÿåòñÿ

 S                           }ïîêà i₀ íå äîñ-

[Exit for]               }òèãíåò çíà÷åíèÿ

Next i                    }i_k .Øàã – h

                          2

Sub Çíàêè()

Dim S As String, En As String

Dim nEn As Integer, i As Long

S = InputBox("Ââåäèòå òåêñò")

En = "abcdefghijklmnopqrstuvwxyz"

nEn = 0

For i = 1 To Len(S)

If (InStr(En, Mid(S, i, 1), 1)) > 0 Then

nEn = nEn + 1

End If

Next i

MsgBox ("Êîë-âî =" + Str(nEn))

End Sub

                               3

Sub Swap(S As String, i As Long, j As Long)

Dim c As String

c = Mid(S, i, 1)

Mid(S, i, 1) = Mid(S, j, 1)

Mid(S, j, 1) = c

End Sub

Sub øèôð()

Dim S As String, Sogl As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

Sogl = "àåèîóûýþÿ¸"

S = InputBox("Ââîä ñòðîêè")

Gl = "áâãäæçêëìíïðñòôõö÷øùúü"

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then

K = K + 1

If K > Len(Sogl) Then K = 1

S1 = S1 + Mid(Sogl, K, 1)

End If

Next i

For i = 1 To Len(S1) - 5 Step 6

Call Swap(S1, i, i + 5)

Call Swap(S1, i + 2, i + 3)

Call Swap(S1, i + 1, i + 4)

Next i

S = S1

MsgBox (S)

End Sub

                 4

Sub Ðàñêîäèðîâùèê()

Dim S As String, i As Long

Dim S1 As String, c As String

Dim Gl As String, K As Long

S = InputBox("Ââîä øèôðà")

Gl = "áâãäæçêëìíïðñòôõö÷øùúü"

For i = 1 To Len(S) - 5 Step 6

Call Swap(S, i, i + 5)

Call Swap(S, i + 2, i + 3)

Call Swap(S, i + 1, i + 4)

Next i

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then i = i + 1

Next i

MsgBox (S1)

End Sub

                          5

Sub Çàìåíà()

Dim S As String, S1 As String

Dim n As Long, C As String

Dim Name As String

S = InputBox("Ââîä ñòðîêè")

Name = InputBox("Ââîä Èìåíè")

n = 0

For i = 1 To Len(S)

C = Mid(S, i, 1)

If Mid(S, i, 3) = "Èìÿ" Then

 S1 = S1 + Name

 n = n + 1

 i = i + 2

ElseIf Mid(S, i, 7) = "Ôàìèëèÿ" Then

 S1 = S1 + Name

 i = i + 6

 n = n + 1

Else

 S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub