Реферат: Билеты по информатике 10 класс: Visual Basic
Билет №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
Билет №2
1
DoWhileL } Sвыполняется
S }если L-истина
<st1:place w:st=«on»>Loop</st1:place> }Do }Sвыполняется
S }пока L-истина
LoopWhileL}
Do }Sвыполняется
S }вечно, пока не
[exitdo] } будет перехода
Loop } к exitdo
WhileL }то же, что и
S }Do while...<st1:place w:st=«on»>Loop</st1:place>
Wend }
DoUntilL }Sвыполняется
S }если L-ложь
<st1:place w:st=«on»>Loop</st1:place> }
Do }Sвыполняется
S }пока L-ложь
Loop Until L}
for i=i0to 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
<span Times New Roman",«serif»;mso-fareast-font-family: «Times New Roman»;mso-ansi-language:RU;mso-fareast-language:KO;mso-bidi-language: AR-SA">Билет №3
1
IfLthen }Sвыполняется
S }еслиL -истина
End If }
IfL1 then }S1 выполняется
S1 }еслиL1 –истина.
ElseifL2 then }если нет, то про-
S2 }веряется L2 и.т.д
— — — — — — — - }если Ln-не истина
<st1:Street w:st=«on»><st1:address w:st=«on»>ElseifLn</st1:address></st1:Street>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
<span Times New Roman",«serif»; mso-fareast-font-family:«Times New Roman»;mso-ansi-language:EN-US;mso-fareast-language: KO;mso-bidi-language:AR-SA">Билет №4
1
SelectCaseУСЛ} Если УСЛ равно
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
<span Times New Roman",«serif»; mso-fareast-font-family:«Times New Roman»;mso-ansi-language:EN-US;mso-fareast-language: KO;mso-bidi-language:AR-SA">Билет №5
1
Операторы описания типов переменных
DIM-описывает переменные ивыделяет для них память.
Dim Stringas 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
<span Times New Roman",«serif»; mso-fareast-font-family:«Times New Roman»;mso-ansi-language:EN-US;mso-fareast-language: KO;mso-bidi-language:AR-SA">Билет №6
1 Array(Список)Возвращает значение типа Variant,
содержащее массив
Пример:
DimmasVariant
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