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

1. Создать новый проект и программу для решения задачи:

· Напечатать 1 2 3 4... 50... 99 100

· Напечатать 100 99... 50... 3 2 1

· Напечатать 1 2 3 4... 50... 99 100 99... 50... 3 2 1

Макет формы показан на рис. 34.

2. Программный код для кнопки пуск 1:

Dim i, j As Integer

Form1.Cls

For a=1 To 100 Step 1

Print a;

Next a

3. Программный код для кнопки пуск 2:

Dim j As Integer

Form1.Cls

For j=100 To 1 Step -1

Print j;

Next j

4. Программный код для кнопки пуск 3:

Dim a, b As Integer

Form1.Cls

For a=1 To 100 Step 1

Print a;

Next a

For b=100 To 1 Step -1

Print b;

Next b

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