Dim m(2, 4), p, i, j, b(4) As Integer

5. Программный код для кнопки обновить:

G2.Clear

For i=0 To 1

For j=0 To 3

m(i, j)=Int((-3)*Rnd+6)

G1.Col=j

G1.Row=i

G1.Text=m(i, j)

Next j

Next i

For j=0 To 3

If m(0, j)>0 And m(1, j)>0 Then

For i=0 To 1

b(4)=m(0, j)*m(1, j)

G2.Col=j

G2.Text=b(4)

Next i

Else

MsgBox "в столбце" & j & "нет положительных элементов"

End If

Next j

6. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.