Билеты по информатике 10 класс: Visual Basic
Билет
№2
1
Do
While L } S выполняется
S
}если L-истина
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 выполняется
0
не дос-
Next
i }ik
. Шаг
– h
2
Sub
Знаки()
Dim
S As String, En As String
Dim
nEn As Integer, i As Long
S
= InputBox("Введите
текст")
"abcdefghijklmnopqrstuvwxyz"
nEn
= 0
For
i = 1 To Len(S)
If
(InStr(En, Mid(S, i, 1), 1)) >
End
If
Next
i
"Кол-во =" + 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)
End
Sub
Sub
шифр()
Dim
S As String, Sogl As String
Dim
i As Long
Sogl
= "аеиоуыэюяё"
S
= InputBox("Ввод строки")
"бвгджзклмнпрстфхцчшщъь"
c
= Mid(S, i, 1)
S1
= S1 + c
If
InStr(Gl, c) > 0 Then
|
K
= K + 1
If
K > Len(Sogl) Then K = 1
End
If
For
i = 1 To Len(S1) - 5 Step 6
Call
Swap(S1, i, i + 5)
Call
Swap(S1, i + 2, 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) - 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) >
Next
i
MsgBox
(S1)
5
Dim
S As String, S1 As String
Dim
Name As String
S
= InputBox("Ввод строки")
Name
= InputBox("Ввод Имени")
n
= 0
For
i = 1 To Len(S)
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
Next
i
MsgBox
(S1)
MsgBox
(n)
|
Билет
№3
If
L then }S выполняется
End
If }
If
L1
then
}S1 выполняется
1
}если
L1
–истина.
Elseif
L
S}веряется
L2 и. т. д
-
- - - - - - - }если Ln-не
истина
Elseif
Lthen
}то выполняется
Sn
}Sn+1
Else
}
Sn+1
}
End
if }
2
Sub
Знаки( )
Dim
S As String, Rus As String
Dim
nRus As Integer, i As Long
"Введите
текст")
"абвгдежзиклмнопрстуфхцчшщъыьэюяё"
nRus
= 0
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
"Ввод строки")
Gl
= "аеиоуыэюяё"
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
Next
i
For
i = 1 To Len(S) Step 2
c
= Mid(S, i, 1)
S1
= S1 + c
Next
i
MsgBox
(S)
End
Sub
5
Sub
Замена()
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)
|
1
Select
Case УСЛ} Если
УСЛ равно
Case
ЗН1
}ЗН1 то выполня-
S1
}ется S1,
если ЗН2
Case
ЗН2
}то S2 и
т. д. Если
-
- - - - - - - }одному
из ЗН, то
Case
ЗНn
}выполняется
Sn+1
Sn
}
Case
Else }
Sn+1
}
2
Sub
Знаки( )
Dim
nRus As Integer, i As Long
"Введите
текст")
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
"Кол-во =" + Str(nRus))
End
Sub
Sub Swap(S As String, i As
Long, j As Long)
Dim c As String
Mid(S, i, 1) = Mid(S, j, 1)
Mid(S, j, 1) = c
End Sub
Sub шифр(
)
Dim Gl As String, K As Long
Dim i As Long
Sh = "Шаблон"
S = InputBox("Ввод
строки")
Gl = "аеиоуыэюяё"
c = Mid(S, i, 1)
S1 = S1 + c
If InStr(Gl, c) >
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))
S
= S1
MsgBox
(S)
End Sub
|
4
Sub
шифр()
Dim
S1 As String, c As String
Dim
Gl As String, K As Long
Sh
= "Шаблон"
S
= InputBox("Ввод строки")
"аеиоуыэюяё"
For
i = 1 To (Len(S1)) / 2
Call
Swap(S1, i, Len(S1) - (i - 1))
Next
i
For
i = 1 To Len(S)
If
InStr(Gl, c) > 0 Then
i
= i + 1
End
If
Next
i
End
Sub
5
Sub
Замена()
Dim
S As String, S1 As String
S
= InputBox("Ввод строки")
n
= 0
For
i = 1 To Len(S)
C
= Mid(S, i, 1)
If
Mid(S, i, 1) = "#" Then
"Имя"
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)
End
Sub
|
Билет
№5
1
DIM-описывает
переменные
и выделяет для
них память.
Dim String
as
Type
String - имя
переменной
|
Размер |
Тип
данных |
Диапазон |
Byte |
1б |
Целое
число |
0-255 |
|
2б |
Целое
число |
+
32768
|
Long |
4б |
Целое
число |
+
|
|
4б |
Веществ. |
+10+304
|
String |
Len(String) |
Символы |
0-~64000 |
|
2б |
True/False |
1;0 |
Variant |
16б |
Произвольн |
Произв. |
2
Sub Знаки(
)
Dim S As String, Pr As String
S = InputBox("Введите
текст")
Pr = ",.?!:;"
nPr = 0
For i = 1 To Len(S)
If (InStr(Pr, Mid(S, i, 1))) >
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
Mid(S, i, 1) = Mid(S, j, 1)
Mid(S, j, 1) = c
End Sub
Sub шифр(
)
Dim S As String, Sh As String
Dim Gl As
String, K As Long
Dim i As Long
"Шаблон"
S = InputBox("Ввод
строки")
Gl = "аеиоуыэюяё"
For i = 1 To Len(S)
S1 = S1 + c
If InStr(Gl, c) > 0 Then
K = K + 1
If K > Len(Sh) Then K = 1
End If
Next i
For i = 1
To Len(S1) - 1 Step 2
Next i
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
"Ввод
шифра")
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)
S1 = S1 + c
If InStr(Gl, c) > 0 Then i
= i + 1
Next i
End Sub
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)
"&"
Then
"Фамилия"
"Имя"
Then
S1 = S1 + "Фамилия"
n = n + 1
Else
S1 = S1 + C
End If
Next i
MsgBox (S1)
|
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
2
Sub Знаки(
)
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
MsgBox ("Кол-во
=" + Str(nPr))
End Sub
3
Sub
Swap(S As String, i As Long, j As Long)
C
= Mid(S, i, 1)
Mid(S,
i, 1) = Mid(S, j, 1)
Mid(S,
j, 1) = C
End
Sub
|
Sub
шифр()
Dim
S1 As String, c As String
Dim
Gl As String, K As Long
Sh
= "Шаблон"
"Ввод строки")
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
For
i = 1 To Len(S1) - 3 Step 4
Call
Swap(S1, i, i + 3)
Next
i
End
Sub
Sub
Раскодировщик()
Dim
S1 As String, c As String
Dim
Gl As String, K As Long
S
= InputBox("Ввод шифра")
"бвгджзклмнпрстфхцчшщъь"
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)
If
InStr(Gl, c) >
Next
i
MsgBox
(S1)
|
1
Len
(String)-Возвращает
длину
строки
String
Left
(String,Length)-Возвращает
левые
Length
символов строки
String
-Возвращает
правые
Length
символов строки
String
-Возвращает
начиная
с символа с
номером Start
Trim(String)
Ltrim(String)-Убирает
начальные
-Убирает
конечные
InStr
([Start,] String, String1[,Comp] )
ращает
позицию первого
вхождения
String1
в строку
String
2
Sub
Знаки( )
Dim
nNum As Integer, i As Long
S
= InputBox("Введите
текст")
"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
Mid(S,
i, 1) = Mid(S, j, 1)
Mid(S,
j, 1) = C
Sub
шифр( )
Dim
S As String, Sogl As String
Dim
S1 As String, c As String
Dim
Gl As String, K As Long
Sogl
= "бвгджзклмнпрстфхцчшщъь"
"Ввод строки")
Gl
= "аеиоуыэюяё"
For
i = 1 To Len(S)
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
Call
Swap(S1, i, i + 4)
Call
Swap(S1, i + 1, i + 3)
Next
i
S
= S1
Sub
Раскодировщик()
Dim
S As String, i As Long
Dim
S1 As String, c As String
S
= InputBox("Ввод шифра")
Gl
= "аеиоуыэюяё"
Call
Swap(S, i, i + 4)
Call
Swap(S, i + 1, i + 3)
Next
i
S1
= S1 + c
If
InStr(Gl, c) >
Next
i
MsgBox
(S1)
Sub
Замена( )
Dim
S As String, S1 As String
Dim
n As Long, C As String
S
= InputBox("Ввод строки")
n
= 0
C
= Mid(S, i, 1)
If
Mid(S, i, 3) = "Имя" Then
S1
= S1 + "Фамилия Имя
Отчество"
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
|
|