Бесплатные рефераты


В мире
Календарь новостей
« Ноя.2017
Пн.Вт.Ср.Чт.Пт.Сб.Вс.
  12345
6789101112
13141516171819
20212223242526
27282930   
ВНИМАНИЕ!!!
УВАЖАЕМЫЕ ПОЛЬЗОВАТЕЛИ!!!
Сайт поменял владельца и на нём грядут большие перемены.
Убедительная просьба не пользоваться покупкой рефератов через смс.
ДАННЫЙ СЕРВИС БОЛЬШЕ НЕ РАБОТАЕТ
Стоит вопрос об его удалении, дабы сделать рефераты бесплатными. Извините за неудобство и спасибо за понимание
Поиск реферата

Реферат, курсовая, контрольная, доклад на тему: Билеты по информатике 10 класс: Visual Basic

ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо скачать работу.

|Билет №2 | |
|1 |K = K + 1 |
|Do While L } S|If K > |
|выполняется |Len(Sogl) |
|S |Then K = 1 |
|}если L-истина |S1 = S1 + |
|Loop |Mid(Sogl, K, |
|} |1) |
| |End If |
| |Next i |
|Do |For i = 1 To |
|}S выполняется |Len(S1) - 5 |
|S |Step 6 |
|}пока L-истина |Call Swap(S1,|
|Loop While L } |i, i + 5) |
| |Call Swap(S1,|
|Do |i + 2, i + 3)|
|}S выполняется | |
|S |Call Swap(S1,|
|}вечно, пока не|i + 1, i + 4)|
| | |
|[exit do] }|Next i |
|будет перехода |S = S1 |
|Loop }|MsgBox (S) |
|к exit do |End Sub |
| |4 |
|While L |Sub |
|}то же, что и |Раскодировщик|
|S }Do |() |
|while...Loop |Dim S As |
|Wend }|String, i As |
| |Long |
| |Dim S1 As |
|Do Until L }S |String, c As |
|выполняется |String |
|S }если|Dim Gl As |
|L-ложь |String, K As |
|Loop |Long |
|} |S = |
| |InputBox("Вво|
|Do |д шифра") |
|}S выполняется |Gl = |
|S |"бвгджзклмнпр|
|}пока L-ложь |стфхцчшщъь" |
|Loop Until L} |For i = 1 To |
| |Len(S) - 5 |
|for i=i0 to iк |Step 6 |
|step h}S |Call Swap(S, |
|выполняется |i, i + 5) |
|S |Call Swap(S, |
|}пока i0 не |i + 2, i + 3)|
|дос- | |
|[Exit for] |Call Swap(S, |
|}тигнет |i + 1, i + 4)|
|значения | |
|Next i |Next i |
|}ik .Шаг – h |For i = 1 To |
|2 |Len(S) |
|Sub Знаки() |c = Mid(S, i,|
|Dim S As |1) |
|String, En As |S1 = S1 + c |
|String |If InStr(Gl, |
|Dim nEn As |c) > 0 Then i|
|Integer, i As |= i + 1 |
|Long |Next i |
|S = |MsgBox (S1) |
|InputBox("Введи|End Sub |
|те текст") |5 |
|En = |Sub Замена() |
|"abcdefghijklmn|Dim S As |
|opqrstuvwxyz" |String, S1 As|
|nEn = 0 |String |
|For i = 1 To |Dim n As |
|Len(S) |Long, C As |
|If (InStr(En, |String |
|Mid(S, i, 1), |Dim Name As |
|1)) > 0 Then |String |
|nEn = nEn + 1 |S = |
|End If |InputBox("Вво|
|Next i |д строки") |
|MsgBox ("Кол-во|Name = |
|=" + Str(nEn)) |InputBox("Вво|
|End Sub |д Имени") |
|3 |n = 0 |
|Sub Swap(S As |For i = 1 To |
|String, i As |Len(S) |
|Long, j As |C = Mid(S, i,|
|Long) |1) |
|Dim c As String|If Mid(S, i, |
| |3) = "Имя" |
|c = Mid(S, i, |Then |
|1) |S1 = S1 + |
|Mid(S, i, 1) = |Name |
|Mid(S, j, 1) |n = n + 1 |
|Mid(S, j, 1) = |i = i + 2 |
|c |ElseIf Mid(S,|
|End Sub |i, 7) = |
|Sub шифр() |"Фамилия" |
|Dim S As |Then |
|String, Sogl As|S1 = S1 + |
|String |Name |
|Dim S1 As |i = i + 6 |
|String, c As |n = n + 1 |
|String |Else |
|Dim Gl As |S1 = S1 + C |
|String, K As |End If |
|Long |Next i |
|Dim i As Long |MsgBox (S1) |
|Sogl = |MsgBox (n) |
|"аеиоуыэюяё" |End Sub |
|S = | |
|InputBox("Ввод | |
|строки") | |
|Gl = | |
|"бвгджзклмнпрст| |
|фхцчшщъь" | |
|For i = 1 To | |
|Len(S) | |
|c = Mid(S, i, | |
|1) | |
|S1 = S1 + c | |
|If InStr(Gl, c)| |
|> 0 Then | |


ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо А можно заказать оригинальный реферат
Опубликовано: 20.08.10 | [ + ]   [ - ]  
Просмотров: 115
Загрузок: 0
Рекомендуем
{dnmbottom}
БАНК РЕФЕРАТОВ содержит более 70 000 рефератов, курсовых, контрольных работ, сочинений и шпаргалок.