Билеты по информатике 10 класс: Visual Basic
Реферат - Компьютеры, программирование
Другие рефераты по предмету Компьютеры, программирование
Билет №2
1
Do While L } S выполняется
S }если L-истина
Loop }
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