Презентация на тему Решение задачи в VB, VBA(Word),VBA(Excel)

событий выбрать 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

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

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

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

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

создать
2.Откроется окно программного кода
3.Ввести программу

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 название_макроса()
писать нужно самому.

(нажать значок в виде треугольника,
как на

магнитофоне «Плэй» или Run;
2.Ответ отобразится в окне Immediate;
3.Алгоритм появления данного окна:
View – Toolbars – Debug – нажать на красный ! знак.

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