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

  • Просмотров 2788
  • Скачиваний 201
  • Размер файла 24
    Кб

  Билет №1 1 Len (String)-Возвращает длину строки String Left (String,Length)-Возвращает левые Length символов строки String Right (String,Length)-Возвращает правые Length символов строки String Mid (String, Start[,Length] )-Возвращает Length символов из строк String , начиная с символа с номером Start Trim(String)-Убирает начальные и конеч- ные пробелы в строке String Ltrim(String)-Убирает начальные пробелы в строке String Rtrim(String)-Убирает конечные пробелы в строке String InStr ([Start,] String, String1[,Comp] )-Возв- ращает

позицию первого вхождения String1 в строку String 2 Sub Знаки( ) Dim S As String, Num As String Dim nNum As Integer, i As Long S = InputBox("Введите текст") Num = "0123456789" nNum = 0 For i = 1 To Len(S) If (InStr(Num, Mid(S, i, 1))) > 0 Then nNum = nNum + 1 End If Next i MsgBox ("Кол-во =" + Str(nNum)) 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) - 4 Step 5 Call Swap(S1, i, i + 4) Call Swap(S1, i + 1, i + 3) 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) - 4 Step 5 Call Swap(S, i, i + 4) Call Swap(S, i + 1, i + 3) 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, 3) = "Имя" Then S1 = S1 + "Фамилия Имя Отчество" n = n + 1 i = i + 2 ElseIf Mid(S, i, 7) = "Фамилия" Then S1 = S1 + "Фамилия Имя Отчество" i = i + 6 n = n + 1 Else S1 = S1 + C End If Next i MsgBox (S1) MsgBox (n) End Sub Билет №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