Презентация "Решение задачи в 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Желаю УДАЧИ !