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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5