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

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

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

Раздел General Declarations:

Dim M(7, 7) As Single

Private Sub SORT(Y As Integer)

Dim A, B, C As Single

For i=0 To 6

A=M(i, Y)

For s=i To 6

B=M(s, Y)

If B<A Then

C=A

M(i, Y)=B

M(s, Y)=C

A=B

End If

Next s

MSFlexGrid2.Row=i

MSFlexGrid2.Text=M(i, Y)

Next i

End Sub

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

With MSFlexGrid1

For i=0 To 6

For j=0 To 6

M(i, j)=Int(Sin(i)*3-Cos(j)*7)

.Row=i:.Col=j:.Text=Str(M(i, j))

Next j

Next i