Реферат: Билеты по информатике 10 класс: Visual Basic
nEn = 0
For i = 1 To Len(S)
If (InStr(En, Mid(S, i, 1), 1)) > 0 Then
nEn = nEn + 1
End If
Next i
MsgBox ("Кол-во =" + 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)
Mid(S, j, 1) = c
End Sub
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
Sogl = "аеиоуыэюяё"
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(Sogl) Then K = 1