Реферат: Билеты по информатике 10 класс: Visual Basic
S1 = S1 + "Фамилия"
n = n + 1
ElseIf Mid(S, i, 3) = "Имя" Then
S1 = S1 + "Фамилия"
i = i + 2
n = n + 1
Else
S1 = S1 + C
End If
Next i
MsgBox (S1)
MsgBox (n)
End Sub
Билет №6 1Array(Список)Возвращает значение типа Variant, содержащее массив Пример: Dim m as Variant m=Array(1,7,-1,2,3) m(0)=1 m(1)=7 m(2)=-1 m(3)=2 m(4)=3 2 Sub Знаки( ) Dim S As String, Pr As String Dim nPr As Integer, i As Long S = InputBox("Введите текст") К-во Просмотров: 888
Бесплатно скачать Реферат: Билеты по информатике 10 класс: Visual Basic
|