Найти в каждой строке массива максимальный и минимальный элементы - VB
Формулировка задачи:
Дан двумерный массив размером n*m, заполненный случайными числами. Найти в каждой строке массива максимальный и минимальный элементы и поменять их с первым и последним элементом соответственно.
Элементы находит, но вот с выводом что-то туго, никак не могу понять.
Подскажите, пожалуйста, где ошибка. Вывод почти есть, но не совсем то, что требуется.
Решение задачи: «Найти в каждой строке массива максимальный и минимальный элементы»
textual
Листинг программы
'Option Explicit Dim A(1 To 50, 1 To 50) As Double Private Sub Command1_Click() Dim n As Integer, m As Integer, i As Integer, j As Integer Dim temp As Double, it As Integer, jt As Integer Picture1.Cls ': Picture2.Cls n = 3 'Val(Text1) m = 5 'Val(Text2) For i = 1 To n For j = 1 To m A(i, j) = Int(Rnd * 100) Picture1.Print vbTab; A(i, j); Next Picture1.Print Next For i = 1 To n temp = A(i, 1): it = i: jt = 1 For j = 1 To m If A(i, j) > temp Then temp = A(i, j): it = i: jt = j Next A(it, jt) = A(i, 1): A(i, 1) = temp Next For i = 1 To n temp = A(i, 1): it = i: jt = 1 For j = 1 To m If A(i, j) < temp Then temp = A(i, j): it = i: jt = j Next A(it, jt) = A(i, m): A(i, m) = temp Next Picture1.Print vbCrLf For i = 1 To n For j = 1 To m Picture1.Print vbTab; A(i, j); Next Picture1.Print Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д