РЕШЕНИЕ ЗАДАЧИ VB-VBA(Word)-VBA(Excel)

Содержание

1. РЕШЕНИЕ ЗАДАЧИ VB-VBA(Word)-VBA(Excel)
2. Запустить Visual BasicРЕШЕНИЕ ЗАДАЧИ в Visual Basic
3. Двойным щелчком зайти в программный код, в
4. Программа, в которой вывод идет в файл
5. РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Запустить Microsoft Word 20032.Выполнить указанную последовательность команд
6. РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Запустить Microsoft Word 20072.Выполнить указанную последовательность команд
7. РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Нажать команду создать2.Откроется окно программного кода3.Ввести программу
8. Sub последовательность() Dim A(1 To 100) As
9. РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Запустить программу
10. РЕШЕНИЕ ЗАДАЧИ в VBA (Excel) 1.Запустить Microsoft
11. Слайд 11
12. Слайд 12
13. Пример ввода1 2 3 5 5Пример вывода5Желаю УДАЧИ !
14. Скачать презентанцию

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

Слайды и текст этой презентации

Слайд 1РЕШЕНИЕ ЗАДАЧИ
Вводится последовательность чисел до тех пор, пока не

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

их
количество.

Решение показано в Visual Basic,
VBA (Word),
VBA (Excel)

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

Слайд 2Запустить Visual Basic

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

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

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

Двойным щелчком зайти в программный код, в окне событий выбрать Activate, ввести программу.Private Sub Form_Activate()Dim A(1 To

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

$Программа, в которой вывод идет в файл C:\out.txt Private Sub Form_Activate()Dim A(1 To 100) As IntegerDim i$

Слайд 5РЕШЕНИЕ ЗАДАЧИ в VBA (Word)

1.Запустить Microsoft Word 2003
2.Выполнить

указанную последовательность команд

Слайд 6РЕШЕНИЕ ЗАДАЧИ в VBA (Word)

1.Запустить Microsoft Word 2007
2.Выполнить

указанную последовательность команд

Слайд 7РЕШЕНИЕ ЗАДАЧИ в VBA (Word)

1.Нажать команду создать
2.Откроется окно

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

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

Sub последовательность() Dim A(1 To 100) As IntegerDim i As ByteDim k As Integerk = 2A(1) =

Слайд 9РЕШЕНИЕ ЗАДАЧИ в VBA (Word)

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

в виде треугольника,
как на магнитофоне «Плэй» или

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

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

Слайд 10РЕШЕНИЕ ЗАДАЧИ в 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