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

Слайд 2

Запустить Visual Basic

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

Запустить Visual Basic РЕШЕНИЕ ЗАДАЧИ в Visual Basic

Слайд 3

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

Двойным щелчком зайти в программный код, в окне событий выбрать 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

Слайд 4

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

Private Sub Form_Activate()
Dim A(1

Программа, в которой вывод идет в файл C:\out.txt Private Sub Form_Activate() Dim
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

Слайд 5

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

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

РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Запустить Microsoft Word 2003 2.Выполнить указанную последовательность команд

Слайд 6

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

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

РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Запустить Microsoft Word 2007 2.Выполнить указанную последовательность команд

Слайд 7

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

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

РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Нажать команду создать 2.Откроется окно программного кода 3.Ввести программу

Слайд 8

Sub последовательность()
Dim A(1 To 100) As Integer
Dim i As Byte
Dim k

Sub последовательность() Dim A(1 To 100) As Integer Dim i As Byte
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 название_макроса()
писать нужно самому.

Слайд 9

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

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

РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Запустить программу (нажать значок в виде треугольника,

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

Слайд 10

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

1.Запустить Microsoft Excel 2007
2.Ввести в ячейку А1

РЕШЕНИЕ ЗАДАЧИ в VBA (Excel) 1.Запустить Microsoft Excel 2007 2.Ввести в ячейку
число 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

Имя файла: Презентация-на-тему-Решение-задачи-в-VB,-VBA(Word),VBA(Excel)-.pptx
Количество просмотров: 354
Количество скачиваний: 0