Ход работы. 1. Создайте папку Лабораторная_работа_№8, а в ней папку 8.1.

1. Создайте папку Лабораторная_работа_№8, а в ней папку 8.1.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме командную кнопку CommandButton1.

5. Присвойте свойству Caption кнопки значение «Вывести квадраты»,

6. Присвойте свойству Caption формы значение «Квадраты первых десяти чисел», а свойству Name значение «FrmКвадраты».

7. Напишите обработчик события по кнопке «Вывести квадраты», не забывая объявить переменные в начале программы:

Dim i As Integer

Private Sub Command1_Click()

FontSize = 20

For i = 1 To 10

Print i ^ 2; 'точка с запятой позволяет

'вывести квадраты в строчку, а не в столбик

Next