Главная Учебники - Разные Лекции (разные) - часть 32
Билет
№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=i0
to iк
step h}S выполняется S
}пока i0
не дос- [Exit
for] }тигнет
значения Next
i }ik
.Шаг
– 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 Билет
№3
1 If
L then }S выполняется
S
}если
L
-истина End
If } If
L1
then
}S1 выполняется S1
}если
L1
–истина. Elseif
L2
then
}если нет, то
про-
S2
}веряется
L2 и.т.д -
- - - - - - - }если Ln-не
истина Elseif
Ln
then
}то выполняется
Sn
}Sn+1 Else
}
Sn+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 Билет
№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
Билет
№5
1
Операторы
описания типов
переменных
DIM-описывает
переменные
и выделяет для
них память.
Dim String
as
Type
String - имя
переменной
Type -
описание переменной +
32768 +
2 млрд. +10+304
2
Sub Знаки(
)
Dim S As String, Pr As String
Dim nPr As Integer, i As Long
S = InputBox("Введите
текст")
Pr = ",.?!:;"
nPr = 0
For i = 1 To Len(S)
If (InStr(Pr, Mid(S, i, 1))) >
0 Then
nPr = nPr + 1
End If
Next i
MsgBox ("Кол-во
=" + Str(nPr))
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) - 1 Step 2
Call Swap(S1, i, i + 1)
Next i
For i = 1 To Len(S1) - 2 Step
3
Call Swap(S1, i, i + 2)
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) - 2 Step 3
Call Swap(S, i, i + 2)
Next i
For i = 1 To Len(S) - 1 Step 2
Call Swap(S, i, 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
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, 1) = "&"
Then
S1 = S1 + "Фамилия"
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 Билет
№6 |