Билеты по информатике 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 doWhile 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

Билет №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 SubSub шифр( ) 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

«