Билеты по информатике 10 класс: Visual Basic

Билеты по информатике 10 класс: Visual Basic

|Билет №2 | |

|1 |K = K + 1 |

|Do While L } S|If K > |

|выполняется |Len(Sogl) |

|S |Then K = 1 |

|}если L-истина |S1 = S1 + |

|Loop |Mid(Sogl, K, |

|} |1) |

| |End If |

| |Next i |

|Do |For i = 1 To |

|}S выполняется |Len(S1) - 5 |

|S |Step 6 |

|}пока L-истина |Call Swap(S1,|

|Loop While L } |i, i + 5) |

| |Call Swap(S1,|

|Do |i + 2, i + 3)|

|}S выполняется | |

|S |Call Swap(S1,|

|}вечно, пока не|i + 1, i + 4)|

| | |

|[exit do] }|Next i |

|будет перехода |S = S1 |

|Loop }|MsgBox (S) |

|к exit do |End Sub |

| |4 |

|While L |Sub |

|}то же, что и |Раскодировщик|

|S }Do |() |

|while...Loop |Dim S As |

|Wend }|String, i As |

| |Long |

| |Dim S1 As |

|Do Until L }S |String, c As |

|выполняется |String |

|S }если|Dim Gl As |

|L-ложь |String, K As |

|Loop |Long |

|} |S = |

| |InputBox("Вво|

|Do |д шифра") |

|}S выполняется |Gl = |

|S |"бвгджзклмнпр|

|}пока L-ложь |стфхцчшщъь" |

|Loop Until L} |For i = 1 To |

| |Len(S) - 5 |

|for i=i0 to iк |Step 6 |

|step h}S |Call Swap(S, |

|выполняется |i, i + 5) |

|S |Call Swap(S, |

|}пока i0 не |i + 2, i + 3)|

|дос- | |

|[Exit for] |Call Swap(S, |

|}тигнет |i + 1, i + 4)|

|значения | |

|Next i |Next i |

|}ik .Шаг – h |For i = 1 To |

|2 |Len(S) |

|Sub Знаки() |c = Mid(S, i,|

|Dim S As |1) |

|String, En As |S1 = S1 + c |

|String |If InStr(Gl, |

|Dim nEn As |c) > 0 Then i|

|Integer, i As |= i + 1 |

|Long |Next i |

|S = |MsgBox (S1) |

|InputBox("Введи|End Sub |

|те текст") |5 |

|En = |Sub Замена() |

|"abcdefghijklmn|Dim S As |

|opqrstuvwxyz" |String, S1 As|

|nEn = 0 |String |

|For i = 1 To |Dim n As |

|Len(S) |Long, C As |

|If (InStr(En, |String |

|Mid(S, i, 1), |Dim Name As |

|1)) > 0 Then |String |

|nEn = nEn + 1 |S = |

|End If |InputBox("Вво|

|Next i |д строки") |

|MsgBox ("Кол-во|Name = |

|=" + Str(nEn)) |InputBox("Вво|

|End Sub |д Имени") |

|3 |n = 0 |

|Sub Swap(S As |For i = 1 To |

|String, i As |Len(S) |

|Long, j As |C = Mid(S, i,|

|Long) |1) |

|Dim c As String|If Mid(S, i, |

| |3) = "Имя" |

|c = Mid(S, i, |Then |

|1) |S1 = S1 + |

|Mid(S, i, 1) = |Name |

|Mid(S, j, 1) |n = n + 1 |

|Mid(S, j, 1) = |i = i + 2 |

|c |ElseIf Mid(S,|

|End Sub |i, 7) = |

|Sub шифр() |"Фамилия" |

|Dim S As |Then |

|String, Sogl As|S1 = S1 + |

|String |Name |

|Dim S1 As |i = i + 6 |

|String, c As |n = n + 1 |

|String |Else |

|Dim Gl As |S1 = S1 + C |

|String, K As |End If |

|Long |Next i |

|Dim i As Long |MsgBox (S1) |

|Sogl = |MsgBox (n) |

|"аеиоуыэюяё" |End Sub |

|S = | |

|InputBox("Ввод | |

|строки") | |

|Gl = | |

|"бвгджзклмнпрст| |

|фхцчшщъь" | |

|For i = 1 To | |

|Len(S) | |

|c = Mid(S, i, | |

|1) | |

|S1 = S1 + c | |

|If InStr(Gl, c)| |

|> 0 Then | |