Билет №4 1 Select Case УСЛ} Если УСЛ равно Case ЗН1 }ЗН1 то выполня- S1 }ется S1, если ЗН2 Case ЗН2 }то S2 и т. д.Если S2 }УСЛ не равно ни - - - - - - - - }одному из ЗН, то Case ЗНn }выполняется Sn+1 Sn } Case Else } Sn+1 } End Select } 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 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, Sh As String Dim S1 As String, c As String Dim Gl As String, K As Long Dim i As Long Sh = "Шаблон" 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(Sh) Then K = 1 S1 = S1 + Mid(Sh, K, 1) End If 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, Sh As String Dim S1 As String, c As String Dim Gl As String, K As Long Dim i As Long Sh = "Шаблон" S = InputBox("Ввод строки") Gl = "аеиоуыэюяё" For i = 1 To (Len(S1)) / 2 Call Swap(S1, i, Len(S1) - (i - 1)) 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 End If 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 + "Имя" i = i + 2 n = n + 1 ElseIf Mid(S, i, 3) = "Имя" Then S1 = S1 + "#" i = i + 2 n = n + 1 Else S1 = S1 + C End If Next i MsgBox (S1) MsgBox (n) End Sub |
|
|