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

Страница
1

Слайд 1

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

Вводится последовательность чисел до тех пор, пока не будет введено два равных числа подряд.

Вывести элементы последова-тельности и посчитать их

количество.

Слайд 2

• Запустить Visual Basic

Слайд 3

Программа, в которой вывод идет на форму Form1

• Двойным щелчком зайти в программный код, в окне событий выбрать Activate, ввести программу.

Слайд 4

Программа, в которой вывод идет в файл C:\out.txt

Private Sub Form_Activate()

Dim A(1 To 100) As Integer

Dim i As Byte

Dim k As Integer

Open “c:\out.txt” For output as #1

k = 2

A(1) = Val(InputBox("", ""))

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

i = 1

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

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

i = i + 1

k = k + 1

Loop

For i = 1 To k

Print #1, A(i);

Next I

Print #1,

Print #1, k

Close #1

End Sub

Слайд 5

РЕШЕНИЕ ЗАДАЧИ в VBA (Word)

1.Запустить Microsoft Word 2003

2.Выполнить указанную последовательность команд

Слайд 6

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

2.Выполнить указанную последовательность команд

Слайд 7

1.Нажать команду создать

2.Откроется окно программного кода

3.Ввести программу

Слайд 8

Sub последовательность()

Dim A(1 To 100) As Integer

Dim i As Byte

Dim k As Integer

k = 2

A(1) = Val(InputBox("", ""))

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

i = 1

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

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

i = i + 1

k = k + 1

Loop

For i = 1 To k

Debug.Print A(i);

Next i

Debug.Print

Debug.Print k

End Sub

Слайд 9

1.Запустить программу (нажать значок в виде треугольника,

как на магнитофоне «Плэй» или Run;

2.Ответ отобразится в окне Immediate;

3.Алгоритм появления данного окна:

View – Toolbars – Debug – нажать на красный ! знак.

Слайд 10

РЕШЕНИЕ ЗАДАЧИ в VBA (Excel)

Sub последовательность()