Презентация на тему: РЕШЕНИЕ ЗАДАЧИ В VB, VBA(WORD),VBA(EXCEL)

Запустить Visual Basic Запустить Visual Basic

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

Private Sub Form_Activate() 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