Категория
Информатика
Тип
билеты
Страницы
11 стр.
Дата
14.12.2013
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
948149.zip — 5.2 kb
  • bilety-po-informatike-10-klass-visual-basic_948149_1.rtf — 37.68 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

    Билет №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 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

    Билет №3

    1

    If L then }S выполняется

    S }если L -истина

    End If }

    If L1 then }S1 выполняется

    S1 }если L1 –истина.

    Elseif L2 then }если нет, то про

    S2 }веряется L2 и. т. д

    - - - - - - - - }если Ln-не истина

    Elseif Ln then }то выполняется

    Sn }Sn+1

    Else }

    Sn+1 }

    End if }

    2

    Sub Знаки( )

    Dim S As String, Rus As String

    Dim nRus As Integer, i As Long

    S = InputBox("Введите текст")

    Rus = "абвгдежзиклмнопрстуфхцчшщъыьэюяё"

    nRus = 0

    For i = 1 To Len(S)

    If (InStr(Rus, Mid(S, i, 1))) > 0 Then

    nRus = nRus + 1

    End If

    Next i

    MsgBox ("Кол-во =" + Str(nRus))

    End Sub

    3

    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

    S = InputBox("Ввод строки")

    Gl = "аеиоуыэюяё"

    For i = 1 To Len(S)

    c = Mid(S, i, 1)

    S1 = S1 + c

    K = K + 1

    If K > Len(Gl) Then K = 1

    S1 = S1 + Mid(Gl, K, 1)

    Next i

    For i = 1 To (Len(S1)) / 2

    Call Swap(S1, i, Len(S1) - (i - 1))

    Next i

    S = S1

    MsgBox (S)

    End Sub

    4

    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

    S = InputBox("Ввод шифра")

    For i = 1 To (Len(S)) / 2

    Call Swap(S, i, Len(S) - (i - 1))

    Next i

    For i = 1 To Len(S) Step 2

    c = Mid(S, i, 1)

    S1 = S1 + c

    Next i

    S = S1

    MsgBox (S)

    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, 1) = "&" Then

    S1 = S1 + "имя"

    n = n + 1

    ElseIf Mid(S, i, 1) = "#" Then

    S1 = S1 + "имя"

    n = n + 1

    Else

    S1 = S1 + C

    End If

    Next i

    MsgBox (S1)

    MsgBox (n)

    End Sub

    Билет №4

    1

    Select Case УСЛ} Если УСЛ равно

    Case ЗН1 }ЗН1 то выполня

    S1 }ется S1, если ЗН2

    Case ЗН2 }то S2 и т. д. Если

    S2 }УСЛ не равно ни

    - - - - - - - - }одному из ЗН, то

    Case ЗНn }выполняется Sn+1

    Sn }

    Case Else }

    Sn+1 }

    End Select }

    2

    Sub Знаки( )

    Dim S As String, Rus As String

    Dim nRus As Integer, i As Long

    S = InputBox("Введите текст")

    Rus = "абвгдежзиклмнопрстуфхцчшщъыьэюяё"

    nRus = 0

    For i = 1 To Len(S)

    If (InStr(Rus, Mid(S, i, 1))) > 0 Then

    nRus = nRus + 1

    End If

    Next i

    MsgBox ("Кол-во =" + Str(nRus))

    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, Sh As String

    Dim S1 As String, c As String

    Dim Gl As String, K As Long

    Dim i As Long

    Sh = "Шаблон"

    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(Sh) Then K = 1

    S1 = S1 + Mid(Sh, K, 1)

    End If

    Next i

    For i = 1 To (Len(S1)) / 2

    Call Swap(S1, i, Len(S1) - (i - 1))

    Next i

    S = S1

    MsgBox (S)

    End Sub

    4

    Sub шифр()

    Dim S As String, Sh As String

    Dim S1 As String, c As String

    Dim Gl As String, K As Long

    Dim i As Long

    Sh = "Шаблон"

    S = InputBox("Ввод строки")

    Gl = "аеиоуыэюяё"

    For i = 1 To (Len(S1)) / 2

    Call Swap(S1, i, Len(S1) - (i - 1))

    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

    End If

    Next i

    S = S1

    MsgBox (S)

    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, 1) = "#" Then

    S1 = S1 + "Имя"

    i = i + 2

    n = n + 1

    ElseIf Mid(S, i, 3) = "Имя" Then

    S1 = S1 + "#"

    i = i + 2

    n = n + 1

    Else

    S1 = S1 + C

    End If

    Next i

    MsgBox (S1)

    MsgBox (n)

    End Sub

    Билет №5

    1

    Операторы описания типов переменных

    DIM-описывает переменные и выделяет для них память.

    Dim String as Type

    String - имя переменной

    Type - описание переменной

    Описание

    Размер

    Тип данных

    Диапазон

    Byte

    1б

    Целое число

    0-255

    Integer

    2б

    Целое число

    + 32768

    Long

    4б

    Целое число

    + 2 млрд.

    Double

    4б

    Веществ.

    +10+304

    String

    Len(String)

    Символы

    0-~64000

    Boolean

    2б

    True/False

    1; 0

    Variant

    16б

    Произвольн

    Произв.

    2

    Sub Знаки( )

    Dim S As String, Pr As String

    Dim nPr As Integer, i As Long

    S = InputBox("Введите текст")

    Pr = ", .? !: ;"

    nPr = 0

    For i = 1 To Len(S)

    If (InStr(Pr, Mid(S, i, 1))) > 0 Then

    nPr = nPr + 1

    End If

    Next i

    MsgBox ("Кол-во =" + Str(nPr))

    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, Sh As String

    Dim S1 As String, c As String

    Dim Gl As String, K As Long

    Dim i As Long

    Sh = "Шаблон"

    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(Sh) Then K = 1

    S1 = S1 + Mid(Sh, K, 1)

    End If

    Next i

    For i = 1 To Len(S1) - 1 Step 2

    Call Swap(S1, i, i + 1)

    Next i

    For i = 1 To Len(S1) - 2 Step 3

    Call Swap(S1, i, i + 2)

    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) - 2 Step 3

    Call Swap(S, i, i + 2)

    Next i

    For i = 1 To Len(S) - 1 Step 2

    Call Swap(S, i, i + 1)

    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, 1) = "&" Then

    S1 = S1 + "Фамилия"

    n = n + 1

    ElseIf Mid(S, i, 3) = "Имя" Then

    S1 = S1 + "Фамилия"

    i = i + 2

    n = n + 1

    Else

    S1 = S1 + C

    End If

    Next i

    MsgBox (S1)

    MsgBox (n)

    End Sub

    Билет №6

    1

    Array(Список)

    Возвращает значение типа Variant,

    содержащее массив

    Пример:

    Dim m as Variant

    m=Array(1, 7, -1, 2, 3)

    m(0)=1

    m(1)=7

    m(2)=-1

    m(3)=2

    m(4)=3

    2

    Sub Знаки( )

    Dim S As String, Pr As String

    Dim nPr As Integer, i As Long

    S = InputBox("Введите текст")

    Pr = ", .? !: ;"

    nPr = 0

    For i = 1 To Len(S)

    If (InStr(Pr, Mid(S, i, 1))) > 0 Then

    nPr = nPr + 1

    End If

    Next i

    MsgBox ("Кол-во =" + Str(nPr))

    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, Sh As String

    Dim S1 As String, c As String

    Dim Gl As String, K As Long

    Dim i As Long

    Sh = "Шаблон"

    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(Sh) Then K = 1

    S1 = S1 + Mid(Sh, K, 1)

    End If

    Next i

    For i = 1 To Len(S1) - 3 Step 4

    Call Swap(S1, i, i + 3)

    Call Swap(S1, i + 1, i + 2)

    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) - 3 Step 4

    Call Swap(S, i, i + 3)

    Call Swap(S, i + 1, i + 2)

    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

<</p>



Ваше мнение



CAPTCHA