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