Определить номер столбца с наименьшей суммой элементов матрицы А - VB

Формулировка задачи:

Определить номер столбца с наименьшей суммой элементов матрицы А размерности L*k. Помогите написать коооод (

Код к задаче: «Определить номер столбца с наименьшей суммой элементов матрицы А - VB»

textual
List1.Clear
Dim a(), b() As Integer
Dim c, l, k, n As Integer
Dim e As String
 l = Val(Text1.Text): k = Val(Text2.Text)
 ReDim a(1 To l, 1 To k), b(1 To k)
Randomize
List1.AddItem "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў"
For i = 1 To l
For j = 1 To k
 a(i, j) = Int(Rnd(1) * 100)
 e = e & Str(a(i, j)) & "  "
Next j
List1.AddItem e: e = ""
Next i
d = False
For i = 1 To l
For j = 1 To k
 b(j) = b(j) + a(i, j)
Next j
Next i
List1.AddItem "Âûõîäÿùèé Г¬Г*Г±Г±ГЁГў"
For i = 1 To k
 e = e & Str(b(i)) & "  "
Next i
List1.AddItem e
List1.AddItem "Íîìåð ñòîëáöГ*"
n = 1
For i = 2 To k
 If b(1) > b(i) Then n = i: b(1) = b(i)
Next i
List1.AddItem n
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ