Читать вопросы по информатике, вычислительной технике, телекоммуникациям: "Билеты по информатике 10 класс: Visual Basic" Страница 1

Билет №11Len (String)-Возвращает длинустроки StringLeft (String,Length)-Возвращает левыеLength символов строки StringRight (String,Length)-Возвращает правыеLength символов строки StringMid (String, Start[,Length] )-ВозвращаетLength символов из строк String ,начиная с символа с номером StartTrim(String)-Убирает начальные и конеч-ные пробелы в строке StringLtrim(String)-Убирает начальныепробелы в строке StringRtrim(String)-Убирает конечные пробелы в строке StringInStr ([Start,] String, String1[,Comp] )-Возв-ращает позицию первого вхожденияString1 в строку String2Sub Знаки( )Dim S As String, Num As StringDim nNum As Integer, i As LongS = InputBox("Введите текст")Num = "0123456789"nNum = 0For i = 1 To Len(S)If (InStr(Num, Mid(S, i, 1))) > 0 ThennNum = nNum + 1End IfNext iMsgBox ("Кол-во =" + Str(nNum))End Sub3Sub Swap(S As String, i As Long, j As Long)Dim C As StringC = Mid(S, i, 1)Mid(S, i, 1) = Mid(S, j, 1)Mid(S, j, 1) = CEnd SubSub шифр( )Dim S As String, Sogl As StringDim S1 As String, c As StringDim Gl As String, K As LongDim i As LongSogl = "бвгджзклмнпрстфхцчшщъь"S = InputBox("Ввод строки")Gl = "аеиоуыэюяё"For i = 1 To Len(S)c = Mid(S, i, 1)S1 = S1 + c

If InStr(Gl, c) > 0 ThenK = K + 1If K > Len(Sogl) Then K = 1S1 = S1 + Mid(Sogl, K, 1)End IfNext iFor i = 1 To Len(S1) - 4 Step 5Call Swap(S1, i, i + 4)Call Swap(S1, i + 1, i + 3)Next iS = S1MsgBox (S)End Sub4Sub Раскодировщик()Dim S As String, i As LongDim S1 As String, c As StringDim Gl As String, K As LongS = InputBox("Ввод шифра")Gl = "аеиоуыэюяё"For i = 1 To Len(S) - 4 Step 5Call Swap(S, i, i + 4)Call Swap(S, i + 1, i + 3)Next iFor i = 1 To Len(S)c = Mid(S, i, 1)S1 = S1 + cIf InStr(Gl, c) > 0 Then i = i + 1Next iMsgBox (S1)End Sub5Sub Замена( )Dim S As String, S1 As StringDim n As Long, C As StringS = InputBox("Ввод строки")n = 0For i = 1 To Len(S)C = Mid(S, i, 1)If Mid(S, i, 3) = "Имя" Then S1 = S1 + "Фамилия Имя Отчество" n = n + 1 i = i + 2ElseIf Mid(S, i, 7) = "Фамилия" Then S1 = S1 + "Фамилия Имя Отчество" i = i + 6 n = n + 1Else S1 = S1 + CEnd IfNext iMsgBox (S1)MsgBox (n)End Sub