Dim i As Integer

Example4_1.Cls

example4_1.CurrentY=kod.Top+30

For i = 1 To Val(kolkod.Text)

example4_1.CurrentX=kod.Left

Dim intvar As Integer

intvar=Val(nachkod.Text)+i-1

example4_1.Print intvar;

example4_1.CurrentX=simvol.Left

example4_1.Print Chr$(intvar)

Next i

5. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму с именами lab4_1 или example4_1 соответствующими командами из меню file.

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

Visual Basic 6.0 позволяет вывести стандартные окна сообщений на экран в нужном месте программы. Окна могут содержать пиктограмму, заголовок и текст сообщения, а также кнопки: ОКYESNO CANCEL RETRY. Описание вывода окна сообщения на экран выглядит следующим образом: MsgBox «текст сообщения», код пиктограммы, «заголовок» или Msgbox «текст сообщения», код вида ошибки, «текст заголовка», где код вида ошибки – есть сумма значений кодов, определяемых набором кнопок и пиктограммой. Если заголовок не указан, то выводится стандартный системный заголовок (как правило, соответствующий имени проекта). Коды пиктограмм: см. рис. 23. Коды наборов кнопок указаны в таблице 1.

Для обеспечения диалога с пользователем существуют функции, которые возвращают целое число, соответствующее любой нажатой из имеющихся в окне кнопок (см. таб. 2).

Табл. 1

Набор кнопок	OK	OK+ CANCEL	YES+NO+ CANCEL	YES +NO
Код

Табл. 2

Нажатая кнопка	OK	CANCEL	YES	NO
Возвращаемое значение

1. Загрузить проект, созданный в работе № 4.1.

2. Предусмотреть в программе вывод стандартного окна сообщения в том случае, если пользователем не введен начальный код. Окно сообщения должно содержать пиктограмму Ä «перекрестье» и кнопки YES и NO. В этом случае код вида ошибки будет равен 20 – сумма значений набора кнопок (4) и пиктограммы (16). Для этого в процедуре для кнопки ОК после строки Form1.Cls добавить следующий программный код:

If Val(nachkod.text)=0 Then

MsgBox "Введите начальный код!", 20, "Ошибка!"

Exit Sub

End If

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму с именами lab4_2 или example4_2 соответствующими командами из меню file.