Презентация. Решение задач в Visual Basic, VBA (Word), VBA (Excel)

РЕШЕНИЕ ЗАДАЧИ

Решение показано в Visual Basic ,

VBA (Word),

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

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

VBA (Excel)

РЕШЕНИЕ ЗАДАЧИ в Visual Basic

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

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

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

Private Sub Form_Activate()

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

Form1.Print A(i);

Next i

Form1.Print

Form1.Print k

End Sub

РЕШЕНИЕ ЗАДАЧИ в Visual Basic

Программа, в которой вывод идет в файл 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

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

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

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

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

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

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

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

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

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

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

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

Примечание .

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

В Visual Basic

Dim A(1 To 100) As Integer

слова Private Sub и End Sub пишутся

Dim i As Byte

автоматически при двойном щелчке

Dim k As Integer

по форме.

k = 2

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

В VBA

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

слова Sub название_макроса()

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

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

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

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

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

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

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

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

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

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.

Пример ввода

Желаю УДАЧИ !

1 2 3 5 5

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

5