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

1. Создать новый проект – двумерный массив 7х7 и найти произведение ненулевых элементов обратной диагонали. Макет формы показан на рис. 66. Записать для объектов формы следующие программные коды.

2. Раздел General Declarations:

Dim M(7, 7) As Integer

Private Function MyProg() As Integer

Dim P As Integer

P=1

For i=0 To 6

For j=0 To 6

If i+j=6 And M(i, j)<>0 Then

P=P*M(i, j)

End If

Next j

Next i

MyProg=P

End Function

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