Referat.me

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

Вид работы: реферат

Рубрика: Информатика и программирование

Размер файла: 21.56 Kb

Скачать файл: referat.me-137975.zip

Краткое описание работы: Билет №2 Do While L } S выполняется S }если L-истина Loop } Do }S выполняется S }пока L-истина Loop While L } Do }S выполняется S }вечно, пока не [exit do] } будет перехода

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

Билет №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 Целое число 0-255
Integer Целое число

+ 32768

Long Целое число

+ 2 млрд.

Double Веществ.

+10+304

String Len(String) Символы 0-~64000
Boolean 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



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


Похожие работы

  • Для чего нужна процедура Sub?

    Sub это то же самое, что и Function, только она не возвращает значение, а производит какое-нибудь действие. Например вывод на экран сообщения или манипулирование несколькими свойствами.

  • О пользе циклов

    Почти не одна, даже очень простенькая программа, не обходится без циклов. Циклы позволяют выполнить одну или несколько строк кода несколько раз.

  • Решение экономических задач с помощью VBA

    МИНИСТЕРСТВО ОБРАЗОВАНИЯ УКРАИНЫ КАФЕДРА ПРОГРАМНОГО ОБЕСПЕЧЕНИЯ ЭВМ 1РЕШЕНИЕ ЭКОНОМИЧЕСКИХ ЗАДАЧ С ПОМОЩЬЮ VBA Курсовая работа по дисциплине «Матем. моделирование информационных систем »

  • БД Информационная система Железнодорожная станция

    Составить » используя СУБД Microsoft Access Необходимо разработать информационную систему, обслуживающая пассажиров на предмет покупки билетов и получения информации о тех или иных составах. Система не привязана к конкретной станции и, тем самым с любой станции можно купить билет на любой состав, как следующий через эту станцию, так и не следующий, но внесённый в систему.

  • Сложение и вычитание целых неотрицательных чисел в двоичном коде

    Числа с фиксированной точкой характеризуются длиной слова в битах, положением двоичной точки, бывают беззнаковыми или знаковыми. Позиция двоичной точки определяет число разрядов в целой и дробной частях машинного слова. Представление отрицательного числа.

  • Устройство преобразования цифровой информации с ее шифрованием

    Аппаратный узел, выполняющий задачу преобразования цифровой информации с ее шифрованием по определенному алгоритму. Структура шифрующе-вычисляющего устройства с использованием языка высокоуровневого описания аппаратуры VHDL. Диаграмма потока данных.

  • Изучение возможностей создания MDI-приложений (multiple document interface)

    Возможности создания MDI-приложений, их преимущества. Основные приемы работы с записью информации в файл, экспорт данных в приложения Microsoft Office с помощью использование технологии OLE, на примере MS Excel интегрированного пакета MS Office.

  • Создание 3D-графики средствами языка программирования Visual Basic

    Структура и назначение программного кода программы по созданию 3D-графики средствами языка программирования Visual Basic. Элементы управления "Окно формы" и "Таймер", выполняемые ими функции и основные свойства, значение в работе программного кода.

  • Перевод целых неотрицательных чисел в различных системах счисления

    Программа Enhanced Converter для преобразования мультимедийных файлов. Процедура инициализации приложения, очистки текстовых полей, проверки ввода данных, по вычислению значений в "реальном времени". Внешний вид окна приложения с введенными данными.

  • Умножение и деление целых неотрицательных чисел в двоичном коде

    Числа с фиксированной точкой характеризуются длиной слова в битах, положением двоичной точки, бывают беззнаковыми или знаковыми. Позиция двоичной точки определяет число разрядов в целой и дробной частях машинного слова. Представление отрицательного числа.