Реферат: Билеты по информатике 10 класс: Visual Basic

S₁ }если L1 –истина.

Elseif L₂ then }если нет, то про-

S₂ }веряется L2 и.т.д

- - - - - - - - }если Ln-не истина

Elseif L_n then }то выполняется

S_n }Sn+1

Else }

S_n+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