Курсовая работа: Разработка программы для квадратной матрицы

A(i, j) = Raschet(A(i, j), OptionButton1.Value, i, j, N)

Next j

Next i

ListBox1.List = A

End Sub

Private Sub CommandButton2_Click()

If Not N_correct Then

MsgBox ("Неверно указан размер матрицы ")

TextBox1.SetFocus

Exit Sub

End If

МатрицаФорма.Hide

Cells.Clear

N = Val(TextBox1.Value)

For i = 1 To N

For j = 1 To N

Cells(i, j) = Raschet(A(i, j), OptionButton1.Value, i, j, N)

Next j

Next i

МатриЛист.Show

Application.Visible = True

Rem Cells.Select

Rem Selection.ClearContents

End Sub

Private Sub CommandButton3_Click()

If Not N_correct Then

MsgBox ("Неверно указан размер матрицы ")

TextBox1.SetFocus

Exit Sub