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

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


textual

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

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

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

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



Похожие ответы
  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!

  1. Здравствуйте! Прошу помощи. Не знаю, как исправить код ниже для Эксель, чтобы одномерный массив полностью показывал элементы двумерного.

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Отметки точек трассы представлены как элементы массива. В этом массиве находят разность мах и мин элементов для определения размаха эпюры трассы. Величина размаха учитывается при выборе размеров (формата) чертежа. В данной задаче студентам следует решить только первую часть проблемы: определить максимальный элемент массива

  1. как определить язык windows на VB6.0?

  1. При помощи VB6 как сделать привязку программы? По SN материнки, процессора, жёсткого диска, сетевой карты и т.д.

  1. Дан массив размера N. Найти номер его первого локального минимума (элемент, который меньше любого из своих соседей)

  1. В заданном одномерном массиве целого типа найти и напечатать те элементы, у которых последовательность цифр от младшего к старшему разряду является возрастающей, или сообщить, что таких нет. Использовать процедуру определения, является ли последовательность цифр от младшего к старшему разряду является возрастающей. Пожалуйста,помогите сделать.

  1. Дано целое число М. Определить делиться ли М нацело на 9. Сумма цифр М должна делиться нацело на 9

  1. Народ, знаю, что вас бесят подобные темы, но прошу помогите. Начали преподавать VB6, но раньше я его не встречал. Задача такова: Дан двумерный массив размерностью N x M элементов. Определить количество элементов, значения которых больше заданного числа F. Если не сложно, пожалуйста напишите полный код с пояснениями. Массив рандомный. Заранее спасибо.