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

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

· Бесконечно печатать букву А: ААААААААААА...

· Бесконечно печатать 10000 9999 9998 9997 9996...

· Бесконечно печатать 100 50 25 12.5... с восьмью десятичными знака

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

2. Программный код для кнопки печатать А:

Do

Print "A";

Loop

3. Программный код для кнопки печатать 10000:

Dim A As Long

A=10000

Do

A=A-1

Print A;

Loop

4. Программный код для кнопки печатать 100:

S#=100

Do

Print S;

S=S/2

Loop

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