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

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 ("Ошибка. Необходимо ввести натуральное число")

К-во Просмотров: 448
Бесплатно скачать Курсовая работа: Разработка программы для квадратной матрицы