BILET5 (Билеты по информатике 10 класс: Visual Basic)
Описание файла
Документ из архива "Билеты по информатике 10 класс: Visual Basic", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "BILET5"
Текст из документа "BILET5"
Билет №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 |