VBA,массивы
Формулировка задачи:
В массиве N*N определить сумму элементов каждой строки и ту строку, в которой сумма элементов минимальная.
Решение задачи: «VBA,массивы»
textual
Листинг программы
Private Sub Command1_Click() Const N = 3 Dim mas(N, N) As Integer Dim i As Integer Dim j As Integer Dim sum As Integer Dim min As Integer Dim min_str As Integer Dim res As String For i = 1 To N For j = 1 To N mas(i, j) = 9 * Rnd() res = res & mas(i, j) & " " Next res = res & vbCrLf Next For i = 1 To N For j = 1 To N sum = sum + mas(i, j) Next res = res & "Сумма строки " & i & " равна " & sum & vbCrLf If i = 1 Then min = sum min_str = 1 Else If min > sum Then min = sum min_str = i End If End If sum = 0 Next res = res & "Минимальная сумма в строке " & min_str MsgBox res End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д