Практическая работа № 4.3

Visual Basic 6.0 позволяет вывести стандартное окно InputBox на экран для ввода исходных данных в нужном месте программы. Окно содержит заголовок, текст сообщения и текстовое поле для ввода данных.

1. Загрузить проект, созданный в работе № 4.1 или № 4.2. Изменить форму согласно рис. 24. Задать свойство name формы – example4_3.

2. Предусмотреть в программе вывод окон InputBox для ввода начального кода и количества кодов. Для этого удалить из программного кода для кнопки ОК все строки, ввести новый программный код:

Dim i, nachkod, kolkod As Integer

Example4_3.Cls

nachkod=InputBox("Введите начальный код")

kolkod=InputBox("Введите количество кодов")

example4_3.CurrentY=kod.Top+30

For i=1 To kolkod

example4_3.CurrentX=kod.Left