Массив: Заменить нечетный элемент каждой строки нулем - VB

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

Дан двумерный массив размером n*m. 1. Заменить нечетный элемент каждой строки нулем 2. Вставить после всех строк, содержащих минимальное значение строку 1,2,3,…. 3. Удалить все столбцы, в которых первый элемент четный 4. Поменять местами первый и последний столбцы.
Dim Am(50, 50) As Double
Dim a(50, 50) As Double
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
Picture5.Cls
Picture6.Cls
Picture7.Cls
s = 0
File = Text1
Open File For Input As #1
Input #1, n
Input #1, m
Picture1.Print n
Picture2.Print m
For i = 0 To n - 1
For j = 0 To m - 1
Input #1, Am(i, j)
Picture3.Print Format(Am(i, j), "  0");
Next
Picture3.Print
Next
Close #1
 
 
For i = 0 To n - 1
For j = 0 To m - 1
If Am(i, j) Mod 2 <> 0 Then Am(i, j) = 0
Next
Next
For i = 0 To n - 1
For j = 0 To m - 1
Picture4.Print Format(Am(i, j), "  0");
Next
Picture4.Print
Next
 
 
Min = Am(1, 1)
For i = 1 To n - 1
If Am(i, j) < Min Then Min = Am(i, j)
Next
 
 
For i = 0 To n - 1
For j = 0 To m - 1
If Am(i, j) = Min Then Am(i + 1, j) = Am(i, j) + 1
Next
Next
For i = 0 To n - 1
For j = 0 To m - 1
Picture5.Print Format(Am(i, j), "  0");
Next
Picture5.Print
Next
 
End Sub
Ничего не сработало с работой со строками. Насчет удаления идей вообще нет. Ещё нужно реализовать добавление вывода результатов программы в исходный текстовый файл с комментариями, но для этого есть представление.

Код к задаче: «Массив: Заменить нечетный элемент каждой строки нулем - VB»

textual
For i = 0 To n - 1
For j = 0 To m - 1
c(i, j) = Am(i, j)
Next j
Next i
For i = 0 To n - 1
For j = 0 To m - 1
Min = c(1, 1)
If c(i, j) < Min Then
For i = 0 To n - 1
For j = 0 To m - 1
c(i + 1, j) = k + 1
Next
Next
For i = 0 To n - 1
For j = 0 To m - 1
Picture5.Print Format(c(k, i), "  0");
Next
Picture5.Print
Next

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ