| Білет № 2 | |
| 1 | K = K + 1 |
| Do While L) S | If K> |
| виконується | Len (Sogl) |
| S | Then K = 1 |
|) якщо L-істина | S1 = S1 + |
| Loop | Mid (Sogl, K, |
|) | 1) |
| | End If |
| | Next i |
| Do | For i = 1 To |
|) S виконується | Len (S1) - 5 |
| S | Step 6 |
|) поки L-істина | Call Swap (S1, |
| Loop While L) | i, i + 5) |
| | Call Swap (S1, |
| Do | i + 2, i + 3) |
|) S виконується | |
| S | Call Swap (S1, |
|) вічно, поки не | i + 1, i + 4) |
| | |
| [exit do]) | Next i |
| буде переходу | S = S1 |
| Loop) | MsgBox (S) |
| к exit do | End Sub |
| | 4 |
| While L | Sub |
|) те ж, що й | Раскодіровщік |
| S) Do | () |
| while ... Loop | Dim S As |
| Wend) | String, i As |
| | Long |
| | Dim S1 As |
| Do Until L) S | String, c As |
| виконується | String |
| S) якщо | Dim Gl As |
| L-брехня | String, K As |
| Loop | Long |
|) | S = |
| | InputBox ( "ВВО |
| Do | д шифру ") |
|) S виконується | Gl = |
| S | "бвгджзклмнпр |
|) поки L-брехня | стфхцчшщ'ь "|
| Loop Until L) | For i = 1 To |
| | Len (S) - 5 |
| for i = i0 to Ік | Step 6 |
| step h) S | Call Swap (S, |
| виконується | i, i + 5) |
| S | Call Swap (S, |
|) поки i0 не | i + 2, i + 3) |
| дос-| |
| [Exit for] | Call Swap (S, |
|) тігнет | i + 1, i + 4) |
| значення | |
| Next i | Next i |
|) ik. Крок - h | For i = 1 To |
| 2 | Len (S) |
| Sub Знаки () | c = Mid (S, i, |
| Dim S As | 1) |
| String, En As | S1 = S1 + c |
| String | If InStr (Gl, |
| Dim nEn As | c)> 0 Then i |
| Integer, i As | = i + 1 |
| Long | Next i |
| S = | MsgBox (S1) |
| InputBox ( "Введи | End Sub |
| ті текст ") | 5 |
| En = | Sub Заміна () |
| "abcdefghijklmn | Dim S As |
| opqrstuvwxyz "| String, S1 As |
| nEn = 0 | String |
| For i = 1 To | Dim n As |
| Len (S) | Long, C As |
| If (InStr (En, | String |
| Mid (S, i, 1), | Dim Name As |
| 1))> 0 Then | String |
| nEn = nEn + 1 | S = |
| End If | InputBox ( "ВВО |
| Next i | д рядка ") |
| MsgBox ( "Кількість | Name = |
| = "+ Str (nEn)) | InputBox (" ВВО |
| End Sub | д Ім'я ") |
| 3 | n = 0 |
| Sub Swap (S As | For i = 1 To |
| String, i As | Len (S) |
| Long, j As | C = Mid (S, i, |
| Long) | 1) |
| Dim c As String | If Mid (S, i, |
| | 3) = "Ім'я" |
| c = Mid (S, i, | Then |
| 1) | S1 = S1 + |
| Mid (S, i, 1) = | Name |
| Mid (S, j, 1) | n = n + 1 |
| Mid (S, j, 1) = | i = i + 2 |
| c | ElseIf Mid (S, |
| End Sub | i, 7) = |
| Sub шифр () | "Прізвище" |
| Dim S As | Then |
| String, Sogl As | S1 = S1 + |
| String | Name |
| Dim S1 As | i = i + 6 |
| String, c As | n = n + 1 |
| String | Else |
| Dim Gl As | S1 = S1 + C |
| String, K As | End If |
| Long | Next i |
| Dim i As Long | MsgBox (S1) |
| Sogl = | MsgBox (n) |
| "аеіоуиеюяе" | End Sub |
| S = | |
| InputBox ( "Введення | |
| рядка ") | |
| Gl = | |
| "бвгджзклмнпрст | |
| фхцчшщ'ь "| |
| For i = 1 To | |
| Len (S) | |
| c = Mid (S, i, | |
| 1) | |
| S1 = S1 + c | |
| If InStr (Gl, c) | |
|> 0 Then | |