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

|Билет № 2 | | |1 |K = K + 1 | |Do While L } S|If K > | |виконується |Len (Sogl) | |P.S |Then K = 1 | |}якщо L-истина |S1 = S1 + | |Loop |Mid (Sogl, K, | |} |1) | | |End If | | |Next і | |Do |For і = 1 To | |}P.S виконується |Len (S1) — 5 | |P.S |Step 6 | |}поки L-истина |Call Swap (S1,| |Loop While L } |і, і + 5) | | |Call Swap (S1,| |Do |і + 2, і + 3)| |}P.S виконується | | |P.S |Call Swap (S1,| |}вічно, поки не|i + 1, і + 4)| | | | |[exit do] }|Next і | |буде переходу |P.S = S1 | |Loop }|MsgBox (P.S) | |до exit do |End Sub | | |4 | |While L |Sub | |}те, як і |Раскодировщик| |P.S }Do |() | |while…Loop |Dim P. S As | |Wend }|String, і As | | |Long | | |Dim S1 As | |Do Until L }P.S |String, з As | |виконується |String | |P.S }если|Dim Gl As | |L-ложь |String, K As | |Loop |Long | |} |P.S = | | |InputBox («Вво| |Do |буд шифру ») | |}P.S виконується |Gl = | |P.S | «бвгджзклмнпр| |}поки L-ложь |стфхцчшщъь «| |Loop Until L} |For і = 1 To | | |Len (S) — 5 | |for i=i0 to ік |Step 6 | |step h}S |Call Swap (S, | |виконується |і, і + 5) | |P.S |Call Swap (S, | |}поки i0 не |і + 2, і + 3)| |дос- | | |[Exit for] |Call Swap (S, | |}тигнет |і + 1, і + 4)| |значення | | |Next і |Next і | |}ik .Крок — h |For і = 1 To | |2 |Len (S) | |Sub Знаки () |з = Mid (S, і,| |Dim P. S As |1) | |String, En As |S1 = S1 + з | |String |If InStr (Gl, | |Dim nEn As |з) > 0 Then і| |Integer, і As |= і + 1 | |Long |Next і | |P.S = |MsgBox (S1) | |InputBox («Введи|End Sub | |ті текст ») |5 | |En = |Sub Заміна () | | «abcdefghijklmn|Dim P. S As | |opqrstuvwxyz «|String, S1 As| |nEn = 0 |String | |For і = 1 To |Dim n As | |Len (S) |Long, З As | |If (InStr (En, |String | |Mid (S, і, 1), |Dim Name As | |1)) > 0 Then |String | |nEn = nEn + 1 |P.S = | |End If |InputBox («Вво| |Next і |буд рядки ») | |MsgBox («Кол-во|Name = | |= «+ Str (nEn)) |InputBox («Вво| |End Sub |буд Імені «) | |3 |n = 0 | |Sub Swap (S As |For і = 1 To | |String, і As |Len (S) | |Long, j As |З = Mid (S, і,| |Long) |1) | |Dim з As String|If Mid (S, і, | | |3) = «Ім'я «| |з = Mid (S, і, |Then | |1) |S1 = S1 + | |Mid (S, і, 1) = |Name | |Mid (S, j, 1) |n = n + 1 | |Mid (S, j, 1) = |і = і + 2 | |з |ElseIf Mid (S,| |End Sub |і, 7) = | |Sub шифр () | «Прізвище «| |Dim P. S As |Then | |String, Sogl As|S1 = S1 + | |String |Name | |Dim S1 As |і = і + 6 | |String, з As |n = n + 1 | |String |Else | |Dim Gl As |S1 = S1 + З | |String, K As |End If | |Long |Next і | |Dim і As Long |MsgBox (S1) | |Sogl = |MsgBox (n) | | «аеиоуыэюяё «|End Sub | |P.S = | | |InputBox («Введення | | |рядки ») | | |Gl = | | | «бвгджзклмнпрст| | |фхцчшщъь «| | |For і = 1 To | | |Len (S) | | |з = Mid (S, і, | | |1) | | |S1 = S1 + з | | |If InStr (Gl, з)| | |> 0 Then | |.