Private Sub MyProc()

Dim S As String

For i=0 To 4

For j=0 To 4

If i=j Then S=S +M(i, j)

Next j

Next i

Label3.Caption=S

End Sub

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

For i=0 To 4

For j=0 To 4

M(i, j)=Chr(65+Int(Rnd*10))

MSFlexGrid1.Col=j

MSFlexGrid1.Row=i

MSFlexGrid1.Text=M(i, j)

Next j

Next i

MyProc

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