Решение задачи

Страница
2

Dim A(1 To 100) As Integer

Dim i As Byte

Dim k As Integer

k = 2

A(1) = Range(“A1”)

A(2) = Range(“A2”)

i = 1

Do Until A(i + 1) = A(i)

A(i + 2) = Val(InputBox("", ""))

i = i + 1

k = k + 1

Loop

Debug.Print k

End Sub

1.Запустить Microsoft Excel 2007

2.Ввести в ячейку А1 число 1,

в ячейку А2 число 2.

3.Нажать Вид – Макрос – ввести

имя макроса – Создать –

написать программу в открытом

окне – запустить программу,

нажатием на Run – ответ

смотреть в окне Immediate.

Слайд 11

Слайд 12

Слайд 13

Пример ввода

1 2 3 5 5

Пример вывода

5