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

1. Создать новый проект – двумерный массив 7х7 и найти максимальный элемент каждого столбца. Макет формы показан на рис. 65.

2. Записать для объектов формы следующие программные коды:

Раздел General Declarations:

Dim M(7, 7) As Integer

Private Function MAX(Y As Integer) As Integer

Dim s As Integer

s=M(0, Y)

For i=0 To 6

If M(i, Y)>s Then s=M(i, Y)

Next i

MAX=s

End Function

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

For j=0 To 6

MSFlexGrid2.Col=j

MSFlexGrid2.Text=""

Next j

4. Процедура загрузки формы: