Билет №3

                               1

If L then   }S выполняется

       S        }если L -истина

End If       }

If L₁ then        }S1 выполняется

     S₁                       }если L1 –истина.

Elseif L₂ then  }если нет, то про-

       S₂                     }веряется L2 и.т.д

- - - - - - - -      }если Ln-не истина

Elseif L_n then  }то выполняется

        S_n                   }Sn+1

Else                 }

       S_n+1                }

End if              }

                        2

Sub Знаки( )

Dim S As String, Rus As String

Dim nRus As Integer, i As Long

S = InputBox("Введите текст")

Rus = "абвгдежзиклмнопрстуфхцчшщъыьэюяё"

nRus = 0

For i = 1 To Len(S)

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

nRus = nRus + 1

End If

Next i

MsgBox ("Кол-во =" + Str(nRus))

End Sub

                        3

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

S = InputBox("Ввод строки")

Gl = "аеиоуыэюяё"

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

K = K + 1

If K > Len(Gl) Then K = 1

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

Next i

For i = 1 To (Len(S1)) / 2

Call Swap(S1, i, Len(S1) - (i - 1))

Next i

S = S1

MsgBox (S)

End Sub

4

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

S = InputBox("Ввод шифра")

For i = 1 To (Len(S)) / 2

Call Swap(S, i, Len(S) - (i - 1))

Next i

For i = 1 To Len(S) Step 2

c = Mid(S, i, 1)

S1 = S1 + c

Next i

S = S1

MsgBox (S)

End Sub

                       5

Sub Замена()

Dim S As String, S1 As String

Dim n As Long, C As String

S = InputBox("Ввод строки")

n = 0

For i = 1 To Len(S)

C = Mid(S, i, 1)

If Mid(S, i, 1) = "&" Then

 S1 = S1 + "имя"

 n = n + 1

ElseIf Mid(S, i, 1) = "#" Then

 S1 = S1 + "имя"

  n = n + 1

Else

 S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub