Напишите пожалуйста программу. дана матрица 4*4. Найти сумму элементов строки - VB
Формулировка задачи:
Дана матрица 4*4 . Найти сумму элементов строки, в которой расположен элемент с наименьшим значением
Решение задачи: «Напишите пожалуйста программу. дана матрица 4*4. Найти сумму элементов строки»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim A(1 To 4, 1 To 4) As Integer Dim i As Integer, j As Integer Dim imin As Integer, jmin As Integer Dim min As Integer, sum As Integer Randomize Cls For i = 1 To 4 For j = 1 To 4 'A(i, j) = InputBox("A(" & i & "," & j & ")") ' Это если потребуется заполнять матрицу вручную. A(i, j) = Int(Rnd * 100) Print A(i, j); vbTab; Next j Print Next i min = A(1, 1): imin = 1: jmin = 1 For i = 1 To 4 For j = 1 To 4 If min > A(i, j) Then min = A(i, j): imin = i: jmin = j 'ищем минимальный элемент Next j Next i For j = 1 To 4 sum = sum + A(imin, j) Next j Print Print "Минимальный элемент матрицы - А(" & imin & "," & jmin & ") = " & min & vbCrLf _ ; "Находится в строке №" & imin & vbCrLf _ ; "Cумма элементов " & imin & "-й строки равна " & sum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д