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

1 Вводится последовательность чисел до тех пор, пока не будет введено два равных числа подряд. Вывести элементы последовательности и посчитать их количество. Решение показано в Visual Basic, VBA (Word), VBA (Excel)

2 1. Запустить Visual Basic

3 2. Двойным щелчком зайти в программный код, в окне событий выбрать 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 Form 1. Print A(i); Next i Form1. Print Form1. Print k End Sub Программа, в которой вывод идет на форму Form 1

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

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

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

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

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

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

10 1. Запустить Microsoft Excel Ввести в ячейку А1 число 1, в ячейку А2 число Нажать Вид – Макрос – ввести имя макроса – Создать – написать программу в открытом окне – запустить программу, нажатием на 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

11

12

13