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

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

Билет №4 1 Select Case УСЛ} Если УСЛ равно Case ЗН1 }ЗН1 то выполня- S1 }ется S1, если ЗН2 Case ЗН2 }то S2 и т. д.Если S2 }УСЛ не равно ни « 2 3 4 5 6 7 8 9 10 11 » К-во Просмотров: 882 Бесплатно скачать Реферат: Билеты по информатике 10 класс: Visual Basic >>> Скачать <<< Меню Поиск