2: Запустить Visual Basic Запустить Visual Basic
3: Программа, в которой вывод идет на форму Form1 Двойным щелчком зайти в программный код, в окне событий выбрать Activate, ввести программу.
4: Программа, в которой вывод идет в файл C:out. txt Private Sub FormActivate() 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
