Dim a As String

a=MsgBox("Выход?", vbYesNo, "выход")

If a=vbYes Then End

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

Выполните самостоятельно!

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

1. Создать новые проекты для печати в верхнем левом углу формы последовательности чисел [1 … 10]. Форма должна содержать одну командную кнопку. Программный код для кнопки для печати:

a) в строку:

Dim i as Integer

Form1.Cls

For i=1 to 10

Form1.Print i;

Next i

b) в столбец:

Dim i as Integer

Form1.Cls

For i=1 to 10

Form1.Print i

Next i