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

Sub Замена()

Dim S As String, S1 As String

Dim n As Long, C As String

Dim Name As String

S = InputBox("Ввод строки")

Name = InputBox("Ввод Имени")

n = 0

For i = 1 To Len(S)

C = Mid(S, i, 1)

If Mid(S, i, 3) = "Имя" Then

S1 = S1 + Name

n = n + 1

i = i + 2

ElseIf Mid(S, i, 7) = "Фамилия" Then

S1 = S1 + Name

i = i + 6

n = n + 1

Else

S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub

Билет №3 1 If L then }S выполняется S }если L -истина End If } « 1 2 3 4 5 6 7 8 9 10 » К-во Просмотров: 881 Бесплатно скачать Реферат: Билеты по информатике 10 класс: Visual Basic >>> Скачать <<< Меню Поиск