Код второй формы frmRezalt

Private Sub cmdBack_Click() ' Объявление локальной процедуры

' cmdBack_Click(), которая выполняется при

' однократном нажатии на командную кнопку

' cmdBack

frmMain.Show ' Команда отображает форму frmMain на экран

Unload Me ' Команда выгружает текущую форму

End Sub ' Конец локальной процедуры

' cmdBack_Click()

Private Sub cmdEnd_Click() ' Объявление локальной процедуры

' cmdEnd_Click(), которая выполняется при

' однократном нажатии на командную кнопку

' cmdEnd

End ' Команда завершает выполнение программы

End Sub ' Конец локальной процедуры cmdEnd_Click()

Private Sub cmdRandomaze_Click() ' Объявление локальной процедуры

' cmdRandomaze_Click(), которая выполняется

' при однократном нажатии на

' командную кнопку cmdRandomaze

Call Vvod ' Вызов (запуск на выполнение)

' глобальной процедуры Vvod

Call Form_Load ' Вызов (запуск на выполнение)

' локальной процедуры Form_Load

End Sub ' Конец локальной процедуры

' cmdRandomaze_Click()

Private Sub Form_Load() ' Объявление локальной процедуры

' Form_Load(), которая выполняется

' при загрузке формы frmRezalt

grdMas.Cols = 3 'Задается общее количество столбцов

'в элементе MSFlexGrid

grdMas.Rows = N + 1 'Задается общее количество строк

'в элементе MSFlexGrid

grdMas.FixedCols = 0 'Задается общее количество фиксированных

'столбцов (окрашенных)

'в элементе MSFlexGrid

grdMas.FixedRows = 1 'Задается общее количество фиксированных

'строк (окрашенных)

'в элементе MSFlexGrid

grdMas.TextMatrix(0, 0) = "Массив" 'В ячейки с координатами (0;0)

'записываем слово Массив

grdMas.TextMatrix(0, 1) = "X" 'В ячейку с координатами (0;1)

'записываем слово Х

grdMas.TextMatrix(0, 2) = "Y" 'В ячейку с координатами (0;2)

'записываем слово Y

For k = 1 To N 'Объявление цикла для перебора

'всех элементов массива

grdMas.TextMatrix(k, 0) = k 'В ячейку з координатами (k;0)

'записываем номера элементов

grdMas.TextMatrix(k, 1) = X(k) 'В ячейку з координатами (k;1)

'записываем значения элементов

'массива Х

grdMas.TextMatrix(k, 2) = Y(k) 'В ячейку з координатами (k;2)

'записываем значения элементов

'массива Y

S = S + 2 / (X(k) + Y(k)) 'Расчет значения суммы по 'заданной формуле

Next 'Конец цикла

lblSum.Caption = "Сумма S=" + Str(S) ' Вывод значения суммы

' в элемент Label (lblSum)

End Sub ' Конец локальной процедуры Form_Load

СОДЕРЖАНИЕ ОТЧЕТА