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