Найти в массиве две строки, сумма элементов которых максимальна и минимальна - VB
Формулировка задачи:
Доброго времени суток. Ребята помогите мне пожалуйста!!!
1.Нужно найти в массиве две строки, сумма элементов которых максимальна и минимальна.
2.Вывести на форму сумму элементов максимальной строки.
3.Вывести на форму сумму элементов минимальной строки.
4.На форме вывести весь массив, синим цветом выделить максимальную строку а красным минимальную.
Ребята очень прошу помогите плизз!!!
Решение задачи: «Найти в массиве две строки, сумма элементов которых максимальна и минимальна»
textual
Листинг программы
Private Sub Form_Load() AutoRedraw = True ForeColor = 255& * 65536 Dim a(1 To 10, 1 To 5) Randomize Max = 0 Min = 2147483647 For r = 1 To 10 s = 0 For c = 1 To 5 a(r, c) = Int(Rnd * 100) s = s + a(r, c) Next c If s > Max Then Max = s: rmax = r If s < Min Then Min = s: rmin = r Next r For r = 1 To 10 Select Case r Case rmin: ForeColor = 255&: Print Min, Case rmax: ForeColor = 255& * 65536: Print Max, Case Else: ForeColor = 0: Print , End Select For c = 1 To 5 Print a(r, c), Next c Print Next r End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д