Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

Название: Билеты по информатике 10 класс: Visual Basic
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 21:55:02 16 августа 2005 Похожие работы
Просмотров: 832 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

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


Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений22:03:36 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
13:21:00 24 ноября 2015

Работы, похожие на Реферат: Билеты по информатике 10 класс: Visual Basic

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(150051)
Комментарии (1830)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru