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