|
Билет №1
1
Len (String)-Возвращает
длину
строки String
Left (String,Length)-Возвращает левые
Length символов строки
String
Right (String,Length)-Возвращает правые
Length символов строки
String
Mid (String,
Start[,Length] )-Возвращает
Length символов из строк String
,
начиная с символа с номером
Start
Trim(String)-Убирает
начальные и конеч-
ные пробелы в строке
String
Ltrim(String)-Убирает
начальные
пробелы в строке String
Rtrim(String)-Убирает
конечные
пробелы в строке String
InStr ([Start,] String,
String1[,Comp] )-Возв-
ращает позицию
первого вхождения
String1 в строку String
2
Sub Знаки( )
Dim S As String, Num As
String
Dim nNum As Integer, i As
Long
S = InputBox("Введите
текст")
Num = "0123456789"
nNum = 0
For i = 1 To Len(S)
If (InStr(Num, Mid(S, i,
1))) > 0 Then
nNum = nNum + 1
End If
Next i
MsgBox ("Кол-во ="
+ Str(nNum))
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) - 4
Step 5
Call Swap(S1, i, i + 4)
Call Swap(S1, i + 1, i + 3)
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) - 4 Step
5
Call Swap(S, i, i + 4)
Call Swap(S, i + 1, i + 3)
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
S = InputBox("Ввод
строки")
n = 0
For i = 1 To Len(S)
C = Mid(S, i, 1)
If Mid(S, i, 3) =
"Имя" Then
S1 = S1 + "Фамилия Имя
Отчество"
n = n + 1
i = i + 2
ElseIf Mid(S, i, 7) =
"Фамилия" Then
S1 = S1 + "Фамилия Имя
Отчество"
i = i + 6
n = n + 1
Else
S1 = S1 + C
End If
Next i
MsgBox (S1)
MsgBox (n)
End Sub
|
