Ошибка в подпрограмме. Basic. Двумерные массивы

[Cimilia]

Подпрограммка должна искать в каждой строчке макс и мин элементы и менять их местами соответственно с первым и последним элементами строки. Перекраивала по-разному. Нужен свежий взгляд)

Sub minmax(ByRef B(,) As Double) 
Dim i, j, m, n, jmin, jmax As Integer 
Dim max, min, k, c As Single 
m = B.GetLength(0) - 1 
n = B.GetLength(1) - 1 
For i = 0 To m - 1 
For j = 0 To n - 1 
B(i, 0) = min 
If B(i, j) < min Then 
min = CSng(B(i, j)) 
jmin = j 
End If 
Next 
k = CSng(B(i, jmin)) 
B(i, jmin) = B(i, m - 1) 
B(i, m - 1) = k 
Next 
For i = 0 To m - 1 
For j = 0 To n - 1 
B(i, 0) = max 
If B(i, j) > max Then 
max = CSng(B(i, j)) 
jmax = j 
End If 
Next 
c = CSng(B(i, jmax)) 
B(i, jmax) = B(i, 0) 
B(i, 0) = c 
Next 

End Sub

[ViktorR]

Поправлю только первый фрагмент.

For i = 0 To m - 1
  min = B(i, 0)      ' Первый элемент примем за min
                        ' до начала цикла, в котором ищем минимум
  For j = 0 To n - 1
    If B(i, j) < min Then
       min = CSng(B(i, j))
       jmin = j
    End If
  Next

Примечание: Поиск максимума можно организовать в том же цикле.

Как то так ...

[Cimilia]

Переделала, но это ничего не изменило. Возможно, ошибка где-то ещё. Я даже не могу понять, что программа вообще делает). Она как-то меняет элементы, но явно не правильно. Причём какие-то элементы почему-то обнуляются. Прилагаю код программы и скрин нынешнего результата.

Option Explicit On
Option Strict On
Imports System.Math
Public Class Form1

    Function vvod(ByVal T As TextBox) As Integer
        Return CInt(Val(T.Text))
    End Function

    Sub vvodmatr(ByRef A(,) As Double)
        Dim i, j, n, m As Integer
        m = A.GetLength(0) - 1
        n = A.GetLength(1) - 1
        Randomize()
        For i = 0 To m - 1
            For j = 0 To n - 1
                A(i, j) = Rnd() + 3 / Rnd()
            Next
        Next
    End Sub

    Sub vivodmatr(ByRef A(,) As Double, ByRef L As ListBox)
        Dim i, j, n, m As Integer
        Dim s As String
        m = A.GetLength(0) - 1
        n = A.GetLength(1) - 1
        For i = 0 To m - 1
            s = ""
            For j = 0 To n - 1
                s = s + Format(A(i, j), "0.0") + Space(4)
            Next
            L.Items.Add(s)
        Next
    End Sub

    Sub minmax(ByRef B(,) As Double)
        Dim i, j, m, n, jmin, jmax As Integer
        Dim max, min, k, c As Single
        m = B.GetLength(0) - 1
        n = B.GetLength(1) - 1
        For i = 0 To m - 1
            B(i, 0) = min
            For j = 0 To n - 1
                If B(i, j) < min Then
                    min = CSng(B(i, j))
                    jmin = j
                End If
            Next
            k = CSng(B(i, jmin))
            B(i, jmin) = B(i, m - 1)
            B(i, m - 1) = k
        Next
        For i = 0 To m - 1
            B(i, 0) = max
            For j = 0 To n - 1
                If B(i, j) > max Then
                    max = CSng(B(i, j))
                    jmax = j
                End If
            Next
            c = CSng(B(i, jmax))
            B(i, jmax) = B(i, 0)
            B(i, 0) = c
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m, n As Integer
        m = vvod(TextBox1)
        n = vvod(TextBox2)
        Dim S(m, n) As Double
        vvodmatr(S)
        vivodmatr(S, ListBox1)
        minmax(S)
        vivodmatr(S, ListBox2)
    End Sub

End Class

Помогите, пожалуйста

[ViktorR]

А Вы внимательно прочитали мое замечание?
Вы пишите на VB, а не на Ассемблре.
Например, как понимать этот код?
B(i, 0) = min

[Hacker19_90]

Вы пишите на VB, а не на Ассемблре.

покажите мне пожалуйста место где язык ассемблера используется

Например, как понимать этот код?
B(i, 0) = min

Если индексация начинается с 0
То первому элементу в строке присвоить значение которое хранится в min
Что не понятно?

[ViktorR]

Hacker19_90

Если индексация начинается с 0
То первому элементу в строке присвоить значение которое хранится в min
Что не понятно?

А Вы внимательно прочитали условие?
Ищется min.
Полагаем, что первый элемент min и тогда надо:
min = B(i, 0) ' Положить текущее значение равным минимальному.

покажите мне пожалуйста место где язык ассемблера используется

.
Еще раз перечитайте мою фразу и покажите, что я это утверждаю

Где-то так ...

[Hacker19_90]

В общем алгоритм такой (писал с потолка)

For i = 0 To m - 1
     min = 0
     max = 0
     For j = 0 To n - 1  
         If B(i, j) < B(i, min) Then 
             min = j 
         End If 
         If B(i, j) > B(i, max) Then
             max = j
         End If 
     Next j
     temp = B(i, min)
     B(i, min) = B(i, 0);
     B(i, 0) = temp;
     temp = B(i, max)
     B(i, max) = B(i, n-1);
     B(i, n-1) = temp;
Next i

[Hacker19_90]

Так так! Не гоним! А разбираемся

А Вы внимательно прочитали условие?
Ищется min.
Полагаем, что первый элемент min и тогда надо:
min = B(i, 0) ' Положить текущее значение равным минимальному.

Мне как-то фиолетого что там ищется, НО
был задан вопрос

Например, как понимать этот код?
B(i, 0) = min

Я вам ответил!

Теперь касаемо вопроса про ассемблер
1) Это не мне надо

Еще раз перечитайте мою фразу и покажите, что я это утверждаю

А скорее вам обьяснить в честь каких это вы про асм то вообще вспомнили?

[ViktorR]

Прошу простить за флейм, но:
1. Про Asm - это так, шутка в сторону автора поста.

2. Вопрос о порядке действий был задан так же адресно.
Ранее мной была дана подсказка, которой автор воспользовался неправильно. Так бывает. Вот и решил вопросом поправить.

Ну в общем то, Вами уже дано решение. Пусть автор думает дальше.

[Cimilia]

Сообщение от Hacker19_90

В общем алгоритм такой (писал с потолка)

For i = 0 To m - 1
     min = 0
     max = 0
     For j = 0 To n - 1  
         If B(i, j) < B(i, min) Then 
             min = j 
         End If 
         If B(i, j) > B(i, max) Then
             max = j
         End If 
     Next j
     temp = B(i, min)
     B(i, min) = B(i, 0);
     B(i, 0) = temp;
     temp = B(i, max)
     B(i, max) = B(i, n-1);
     B(i, n-1) = temp;
Next i

Спасибо огромное! Разобралась. Программа заработала.

Итоговая подпрограмма:

Sub minmax(ByRef B(,) As Double)
        Dim i, j, m, n, min, max As Integer
        Dim k As Double
        m = B.GetLength(0) - 1
        n = B.GetLength(1) - 1
        For i = 0 To m - 1
            min = 0
            max = 0
            For j = 0 To n - 1
                If B(i, j) < B(i, min) Then
                    min = j
                End If
                If B(i, j) > B(i, max) Then
                    max = j
                End If
            Next j
            k = B(i, min)
            B(i, min) = B(i, n - 1)
            B(i, n - 1) = k
            k = B(i, max)
            B(i, max) = B(i, 0)
            B(i, 0) = k
        Next i
    End Sub