Курсовая работа: Разработка программы для квадратной матрицы
N = Val(TextBox1.Value)
For i = 1 To N
For j = 1 To N
A(i, j) = 0
Next j
Next i
ListBox1.List = A
End Sub
Private Sub CommandButton4_Click()
If Not N_correct Then
MsgBox ("Неверно указан размер матрицы ")
TextBox1.SetFocus
Exit Sub
End If
N = Val(TextBox1.Value)
For i = 1 To N
For j = 1 To N
A(i, j) = Abs(i - j)
Next j
Next i
ListBox1.List = A
End Sub
Private Sub CommandButton5_Click()
ThisWorkbook.Close
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
N = Val(TextBox1.Value)
If Not IsNumeric(N) Or N < 1 Or N <> Int(N) Then
MsgBox ("Ошибка. Необходимо ввести натуральное число")