Презентация "Решение задачи в VB, VBA(Word),VBA(Excel)" по информатике – проект, доклад

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

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

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

Запустить Visual Basic

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

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

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

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

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

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

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

Примечание . В Visual Basic слова Private Sub и End Sub пишутся автоматически при двойном щелчке по форме. В VBA слова Sub название_макроса() писать нужно самому.

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

Желаю УДАЧИ !