Вычислить суммы элементов первого столбца и последней строки матрицы - VB
Формулировка задачи:
Вычислить суммы элементов первого столбца и последней строки матрицы. Определить, какая из этих сумм наименьшая. Размерность матрицы произвольная.
Вот пробный вариант:
Что не так?
Решение задачи: «Вычислить суммы элементов первого столбца и последней строки матрицы»
textual
Листинг программы
Private Sub Command1_Click() Dim m As Integer, n As Integer Dim s1 As Single, s2 As Single, a() As Single, i As Integer, j As Integer m = InputBox("Введите количество строк матрицы", , 6) n = InputBox("Введите количество столбцов матрицы", , 7) ReDim a(m, n) Randomize Cls For i = 1 To m For j = 1 To n a(i, j) = Int(Rnd * 10) 'InputBox("a(" & i & "," & j & ")") Next j Next i For i = 1 To m s1 = s1 + a(i, 1) Next i For i = 1 To n s2 = s2 + a(m, i) Next Print "Исходная матрица" For i = 1 To m Print For j = 1 To n Print a(i, j); Next Next MsgBox "Сумма элементов первого столбца равна " & s1 MsgBox "Сумма элементов последней строки равна " & s2 Print If s1 > s2 Then Print "Сумма элементов первого столбца больше суммы элементов последней строки" Else Print "Сумма элементов последней строки больше суммы элементов первого столбца" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д