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


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


Подписи к слайдам:
Слайд 1

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

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

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

количество.

Решение показано в 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

Желаю УДАЧИ !