Dim mtx(1 To 9, 1 To 9) As Integer

Dim mtr As Integer

Dim lem As Integer

Dim stn As Integer

Dim cln As Integer

Программный код для активации формы:

Private Sub Form_Activate()

Pmx.SetFocus

CurrentX=ln.X1+100

CurrentY=ln.Y1+200

stn=1

End Sub

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

lem=lem+1

cln=cln+1

mtx(stn, cln)=Val(nel.Text)

Print nel.Text;

CurrentX=CurrentX+500

If cln=mtr Then

stn=stn+1

cln=0

CurrentY=CurrentY+300

CurrentX=ln.X1+100

End If

Nel.SetFocus

nel.Text=""

Программный код для кнопки сумма:

Dim i As Integer

Dim ism As Integer

For i=1 To mtr

ism=ism+mtx(Val(rnm.Text), i)

Next i

rsm.Caption=ism

Процедура снятия «фокуса» с текстового поля:

Private Sub pmx_LostFocus()

mtr=Val(pmx.Text)

If mtr>1 And mtr<10 Then

dobav.Enabled=True

Nel.SetFocus

Else

MsgBox "Неверный порядок матрицы", 16, "Ошибка!"

Pmx.SetFocus

pmx.Text=""

End If

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