Решение задачи в VB, VBA(Word),VBA(Excel)

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

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

$Программа, в которой вывод идет в файл C:\out.txt Private Sub Form_Activate()...$ 1.Запустить Microsoft Word 2003 2.Выполнить указанную последовательность команд

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 In...

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

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

1 13

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

Скачать эту презентацию

Cлайд 1

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

Cлайд 2

Запустить Visual Basic

Cлайд 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

Cлайд 4

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

Cлайд 5

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

Cлайд 6

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

Cлайд 7

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

Cлайд 8

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

Cлайд 9

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

Cлайд 10

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

Cлайд 11