Презентация "Решение задачи в VB, VBA(Word),VBA(Excel)" 10 класс

Подписи к слайдам:
РЕШЕНИЕ ЗАДАЧИ Вводится последовательность чисел до тех пор, пока не будет введено два равных числа подряд. Вывести элементы последова-тельности и посчитать их количество.

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

VBA (Word),

VBA (Excel)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Примечание .

В Visual Basic

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

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

по форме.

В VBA

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

писать нужно самому.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 2 3 5 5 Пример вывода 5

Желаю УДАЧИ !