Решение задачи в VB, VBA(Word),VBA(Excel)
Слайды и текст этой презентации
Слайд 1
Описание слайда:
Слайд 2
Описание слайда:
Запустить Visual Basic
Запустить Visual Basic
Слайд 3
Описание слайда:
Программа, в которой вывод идет на форму Form1
Двойным щелчком зайти в программный код, в окне событий выбрать Activate, ввести программу.
Слайд 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
Описание слайда:
Слайд 6
Описание слайда:
Слайд 7
Описание слайда:
Слайд 8
Описание слайда:
Слайд 9
Описание слайда:
Слайд 10
Описание слайда:
Слайд 11
Описание слайда:
Слайд 12
Описание слайда:
Слайд 13
Описание слайда:
Презентация на тему Решение задачи в VB, VBA(Word),VBA(Excel) доступна для скачивания ниже:
