Произведение элементов на побочной диагонали и сумму элементов главной диагонали - VB
Формулировка задачи:
Помогите, пожалуйста:
Для матрицы (N*M) вычислить произведение элементов на побочной диагонали и сумму элементов главной диагонали.
Всё это в Visual Basic.
Решение задачи: «Произведение элементов на побочной диагонали и сумму элементов главной диагонали»
textual
Листинг программы
Option Explicit Private Sub Form_Activate() Dim a(), b() Dim i&, j&, n& Dim s#, p# 'вводим размер матрицы, например: 5 On Error Resume Next n = Int(InputBox("Введите порядок матрицы", "Ввод числа")) If Err Then Err.Clear MsgBox "Введите целое число от 1 до 10", vbInformation Exit Sub End If 'наполняем массив случайными числами от 1 до 20 ReDim a(1 To n, 1 To n) Randomize For i = 1 To n For j = 1 To n a(i, j) = Int(20 * Rnd) + 1 Text1.Text = Text1.Text + Format(a(i, j), " 0.0") Next Next 'считаем произведение по элементам побочной диагонали For i = 1 To n j = n - i + 1 p = IIf(p = 0, a(i, j), p * a(i, j)) Next Print "Произведение по эл-м побочной диагонали p = "; p 'считаем сумму по элементам главной диагонали For i = 1 To n j = i s = IIf(s = 0, a(i, j), s + a(i, j)) Next Print " Сумма по эл-м главной диагонали s = "; s End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д