Всё сдал! - помощь студентам онлайн Всё сдал! - помощь студентам онлайн

Реальная база готовых
студенческих работ

Узнайте стоимость индивидуальной работы!

Вы нашли то, что искали?

Вы нашли то, что искали?

Да, спасибо!

0%

Нет, пока не нашел

0%

Узнайте стоимость индивидуальной работы

это быстро и бесплатно

Получите скидку

Оформите заказ сейчас и получите скидку 100 руб.!


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

Тип Реферат
Предмет Информатика и программирование
Просмотров
1182
Размер файла
22 б
Поделиться

Ознакомительный фрагмент работы:

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

Билет№2

1

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

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

Loop }


Do }S выполняется

S }пока L-истина

LoopWhile L }


Do }Sвыполняется

S }вечно, покане

[exitdo] } будет перехода

Loop } к exit do


WhileL }тоже, что и

S }Do while...Loop

Wend }


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

S }если L-ложь

Loop }


Do }Sвыполняется

S }пока L-ложь

LoopUntil L}


fori=i0to iкstep h}S выполняется

S }пока i0не дос-

[Exitfor] }тигнетзначения

Nexti }ik.Шаг– h

2

SubЗнаки()

DimS As String, En As String

DimnEn As Integer, i As Long

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

En= "abcdefghijklmnopqrstuvwxyz"

nEn= 0

Fori = 1 To Len(S)

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

nEn= nEn + 1

EndIf

Nexti

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

EndSub

3

SubSwap(S As String, i As Long, j As Long)

Dimc As String

c= Mid(S, i, 1)

Mid(S,i, 1) = Mid(S, j, 1)

Mid(S,j, 1) = c

EndSub

Subшифр()

DimS As String, Sogl As String

DimS1 As String, c As String

DimGl As String, K As Long

Dimi As Long

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

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

Gl= "бвгджзклмнпрстфхцчшщъь"

Fori = 1 To Len(S)

c= Mid(S, i, 1)

S1= S1 + c

IfInStr(Gl, c) > 0 Then


K= K + 1

IfK > Len(Sogl) Then K = 1

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

EndIf

Nexti

Fori = 1 To Len(S1) - 5 Step 6

CallSwap(S1, i, i + 5)

CallSwap(S1, i + 2, i + 3)

CallSwap(S1, i + 1, i + 4)

Nexti

S= S1

MsgBox(S)

EndSub

4

SubРаскодировщик()

DimS As String, i As Long

DimS1 As String, c As String

DimGl As String, K As Long

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

Gl= "бвгджзклмнпрстфхцчшщъь"

Fori = 1 To Len(S) - 5 Step 6

CallSwap(S, i, i + 5)

CallSwap(S, i + 2, i + 3)

CallSwap(S, i + 1, i + 4)

Nexti

Fori = 1 To Len(S)

c= Mid(S, i, 1)

S1= S1 + c

IfInStr(Gl, c) > 0 Then i = i + 1

Nexti

MsgBox(S1)

EndSub

5

SubЗамена()

DimS As String, S1 As String

Dimn As Long, C As String

DimName As String

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

Name= InputBox("Ввод Имени")

n= 0

Fori = 1 To Len(S)

C= Mid(S, i, 1)

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

S1= S1 + Name

n= n + 1

i= i + 2

ElseIfMid(S, i, 7) = "Фамилия"Then

S1= S1 + Name

i= i + 6

n= n + 1

Else

S1= S1 + C

EndIf

Nexti

MsgBox(S1)

MsgBox(n)

EndSub



Билет№3

1

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

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

EndIf }


IfL1then }S1 выполняется

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

ElseifL2then }если нет, топро-

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

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

ElseifLnthen }то выполняется

Sn }Sn+1

Else }

Sn+1 }

Endif }

2

SubЗнаки( )

DimS As String, Rus As String

DimnRus As Integer, i As Long

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

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

nRus= 0

Fori = 1 To Len(S)

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

nRus= nRus + 1

EndIf

Nexti

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

EndSub

3

Subшифр()

DimS As String, Sogl As String

DimS1 As String, c As String

DimGl As String, K As Long

Dimi As Long

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

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

Fori = 1 To Len(S)

c= Mid(S, i, 1)

S1= S1 + c

K= K + 1

IfK > Len(Gl) Then K = 1

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

Nexti

Fori = 1 To (Len(S1)) / 2

CallSwap(S1, i, Len(S1) - (i - 1))

Nexti

S= S1

MsgBox(S)

EndSub


4

Subшифр()

DimS As String, Sogl As String

DimS1 As String, c As String

DimGl As String, K As Long

Dimi As Long

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

Fori = 1 To (Len(S)) / 2

CallSwap(S, i, Len(S) - (i - 1))

Nexti

Fori = 1 To Len(S) Step 2

c= Mid(S, i, 1)

S1= S1 + c

Nexti

S= S1

MsgBox(S)

EndSub

5

SubЗамена()

DimS As String, S1 As String

Dimn As Long, C As String

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

n= 0

Fori = 1 To Len(S)

C= Mid(S, i, 1)

IfMid(S, i, 1) = "&" Then

S1= S1 + "имя"

n= n + 1

ElseIfMid(S, i, 1) = "#" Then

S1= S1 + "имя"

n= n + 1

Else

S1= S1 + C

EndIf

Nexti

MsgBox(S1)

MsgBox(n)

End Sub


Билет№4

1

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

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

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

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

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

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

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

Sn }

CaseElse }

Sn+1 }

EndSelect }

2

SubЗнаки( )

DimS As String, Rus As String

DimnRus As Integer, i As Long

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

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

nRus= 0

Fori = 1 To Len(S)

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

nRus= nRus + 1

EndIf

Nexti

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

EndSub

3

Sub Swap(S As String, i AsLong, 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

Fori = 1 To (Len(S1)) / 2

CallSwap(S1, i, Len(S1) - (i - 1))

Nexti

S= S1

MsgBox(S)

End Sub

4

Subшифр()

DimS As String, Sh As String

DimS1 As String, c As String

DimGl As String, K As Long

Dimi As Long

Sh= "Шаблон"

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

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

Fori = 1 To (Len(S1)) / 2

CallSwap(S1, i, Len(S1) - (i - 1))

Nexti

Fori = 1 To Len(S)

c= Mid(S, i, 1)

S1= S1 + c

IfInStr(Gl, c) > 0 Then

i= i + 1

EndIf

Nexti

S= S1

MsgBox(S)

EndSub

5

SubЗамена()

DimS As String, S1 As String

Dimn As Long, C As String

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

n= 0

Fori = 1 To Len(S)

C= Mid(S, i, 1)

IfMid(S, i, 1) = "#" Then

S1= S1 + "Имя"

i= i + 2

n= n + 1

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

S1= S1 + "#"

i= i + 2

n= n + 1

Else

S1= S1 + C

EndIf

Nexti

MsgBox(S1)

MsgBox(n)

EndSub



Билет№5

1

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


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

Dim StringasType

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

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

ОписаниеРазмерТипданныхДиапазон
ByteЦелоечисло0-255
IntegerЦелоечисло

+32768

LongЦелоечисло

+2 млрд.

DoubleВеществ.

+10+304

StringLen(String)Символы0-~64000
BooleanTrue/False1;0
Variant16бПроизвольнПроизв.

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(SAs 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 AsString, 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 = 1To Len(S1) - 1 Step 2

Call Swap(S1, i, i + 1)

Next i

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

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,

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

Пример:

Dimm 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

SubSwap(S As String, i As Long, j As Long)

DimC As String

C= Mid(S, i, 1)

Mid(S,i, 1) = Mid(S, j, 1)

Mid(S,j, 1) = C

EndSub


Subшифр()

DimS As String, Sh As String

DimS1 As String, c As String

DimGl As String, K As Long

Dimi As Long

Sh= "Шаблон"

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

Gl= "бвгджзклмнпрстфхцчшщъь"

Fori = 1 To Len(S)

c= Mid(S, i, 1)

S1= S1 + c

IfInStr(Gl, c) > 0 Then

K= K + 1

IfK > Len(Sh) Then K = 1

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

EndIf

Nexti

Fori = 1 To Len(S1) - 3 Step 4

CallSwap(S1, i, i + 3)

CallSwap(S1, i + 1, i + 2)

Nexti

S= S1

MsgBox(S)

EndSub


4

SubРаскодировщик()

DimS As String, i As Long

DimS1 As String, c As String

DimGl As String, K As Long

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

Gl= "бвгджзклмнпрстфхцчшщъь"

Fori = 1 To Len(S) - 3 Step 4

CallSwap(S, i, i + 3)

CallSwap(S, i + 1, i + 2)

Nexti

Fori = 1 To Len(S)

c= Mid(S, i, 1)

S1= S1 + c

IfInStr(Gl, c) > 0 Then i = i + 1

Nexti

MsgBox(S1)

EndSub



Билет№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Знаки( )

DimS As String, Num As String

DimnNum As Integer, i As Long

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

Num= "0123456789"

nNum= 0

Fori = 1 To Len(S)

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

nNum= nNum + 1

EndIf

Nexti

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

EndSub

3

SubSwap(S As String, i As Long, j As Long)

DimC As String

C= Mid(S, i, 1)

Mid(S,i, 1) = Mid(S, j, 1)

Mid(S,j, 1) = C

EndSub


Subшифр( )

DimS As String, Sogl As String

DimS1 As String, c As String

DimGl As String, K As Long

Dimi As Long

Sogl= "бвгджзклмнпрстфхцчшщъь"

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

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

Fori = 1 To Len(S)

c= Mid(S, i, 1)

S1= S1 + c



IfInStr(Gl, c) > 0 Then

K= K + 1

IfK > Len(Sogl) Then K = 1

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

EndIf

Nexti

Fori = 1 To Len(S1) - 4 Step 5

CallSwap(S1, i, i + 4)

CallSwap(S1, i + 1, i + 3)

Nexti

S= S1

MsgBox(S)

EndSub

4

SubРаскодировщик()

DimS As String, i As Long

DimS1 As String, c As String

DimGl As String, K As Long

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

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

Fori = 1 To Len(S) - 4 Step 5

CallSwap(S, i, i + 4)

CallSwap(S, i + 1, i + 3)

Nexti

Fori = 1 To Len(S)

c= Mid(S, i, 1)

S1= S1 + c

IfInStr(Gl, c) > 0 Then i = i + 1

Nexti

MsgBox(S1)

EndSub

5

SubЗамена( )

DimS As String, S1 As String

Dimn As Long, C As String

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

n= 0

Fori = 1 To Len(S)

C= Mid(S, i, 1)

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

S1= S1 + "Фамилия ИмяОтчество"

n= n + 1

i= i + 2

ElseIfMid(S, i, 7) = "Фамилия"Then

S1= S1 + "Фамилия ИмяОтчество"

i= i + 6

n= n + 1

Else

S1= S1 + C

EndIf

Nexti

MsgBox(S1)

MsgBox(n)

EndSub



Нет нужной работы в каталоге?

Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.

Цены ниже, чем в агентствах и у конкурентов

Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит

Бесплатные доработки и консультации

Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки

Гарантируем возврат

Если работа вас не устроит – мы вернем 100% суммы заказа

Техподдержка 7 дней в неделю

Наши менеджеры всегда на связи и оперативно решат любую проблему

Строгий отбор экспертов

К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»

1 000 +
Новых работ ежедневно
computer

Требуются доработки?
Они включены в стоимость работы

Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован

avatar
Математика
История
Экономика
icon
145360
рейтинг
icon
3086
работ сдано
icon
1335
отзывов
avatar
Математика
Физика
История
icon
142050
рейтинг
icon
5871
работ сдано
icon
2651
отзывов
avatar
Химия
Экономика
Биология
icon
94768
рейтинг
icon
2025
работ сдано
icon
1268
отзывов
avatar
Высшая математика
Информатика
Геодезия
icon
62710
рейтинг
icon
1046
работ сдано
icon
598
отзывов
Отзывы студентов о нашей работе
53 538 оценок star star star star star
среднее 4.9 из 5
ИрНИТУ
Спасибо за реферат.Но хотелось бы посоветовать Вам выполнять оформление правильно. Вы ег...
star star star star star
ИМ.ВИТТЕ
Спасибо Алексей, за быструю и качественную работу! Обязательно буду обращаться еще! Всем р...
star star star star star
ДВГУПС
Отличный исполнитель!!! Рекомендую!!! Работа без замечаний!!! Преподаватель принял к защит...
star star star star star

Последние размещённые задания

Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн

создайте модель данных в веб-приложении Django и примените изменения в...

Решение задач, Средства програмной разработки

Срок сдачи к 17 июня

только что

реферат в соответствии с требованиями

Реферат, история государства и права России

Срок сдачи к 28 июня

1 минуту назад
1 минуту назад

чертеж компас а3

Чертеж, Инженерная графика

Срок сдачи к 18 июня

1 минуту назад

написать научную статью

Статья, Уголовная политика

Срок сдачи к 17 июля

1 минуту назад
3 минуты назад

Требований нет.

Курсовая, Технологические процессы технического обслуживания ремонта автомобилей

Срок сдачи к 30 июня

3 минуты назад

Сделать презентацию на по английскому

Презентация, Английский язык

Срок сдачи к 19 июня

4 минуты назад

Решить 6 задач по 4 варианта

Лабораторная, строительные машины

Срок сдачи к 20 июня

4 минуты назад

Произвести расчет и построить блок схему в Java.

Контрольная, Информатика в приложении к отрасли

Срок сдачи к 19 июня

5 минут назад

Сделать чертежи в Компас 3D.

Чертеж, Основы компьютерного инжиниринга.

Срок сдачи к 19 июня

5 минут назад

Ответить на несколько вопросов

Ответы на билеты, История

Срок сдачи к 19 июня

5 минут назад

Помощь на экзамене

Онлайн-помощь, Математика

Срок сдачи к 17 июня

6 минут назад
7 минут назад

Написать доклад по плану для защиты ВКР

Доклад, Юриспруденция

Срок сдачи к 18 июня

7 минут назад
7 минут назад

Необходимо написать приговор судебного заседания

Другое, Юриспруденция

Срок сдачи к 27 июня

8 минут назад

расчетно-графическую работу вариант 8

Контрольная, Теоретическая и прикладная механика, механика

Срок сдачи к 18 июня

8 минут назад
planes planes
Закажи индивидуальную работу за 1 минуту!

Размещенные на сайт контрольные, курсовые и иные категории работ (далее — Работы) и их содержимое предназначены исключительно для ознакомления, без целей коммерческого использования. Все права в отношении Работ и их содержимого принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие в связи с использованием Работ и их содержимого.

«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами

Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:

Вход
Регистрация или
Не нашли, что искали?

Заполните форму и узнайте цену на индивидуальную работу!

Файлы (при наличии)

    это быстро и бесплатно