Вопрос , Верно ли я решаю поставленную мне задачу

Добрый день.Сегодня в универе мне профессор поставил задачу.
Мне нужно найти МИНИМАЛЬНЫЙ ПО МОДУЛЮ ЭЛЕМЕНТ В КАЖДОМ СТОЛБЦЕ МАССИВА.
i=4
j=4
aij=9i^2+j^2-50
Так вот,я написал код,но проверить правильность кода некому.Возможно,нельзя открывать массив с j,сомниваюсь так же в знаке (больше)> и <(меньше)

Скрытый текст

Option Explicit
 
Private Sub Command1_Click()
Const n = 4, m = 4
Dim a(1 To n, 1 To m) As Single, min As Single, j As Integer, i As Integer
For j = 1 To m
For i = 1 To n
a(i, j) = 9 * j ^ 2 + j ^ 2 - 50
Print Format(a(i, j), "0.000 ");
Next i
Print
Next j
For j = 1 To m
For i = 1 To n
min = Abs(a(1, 2))
If Abs(a(i, j)) < min Then
 min = Abs(a(i, j))
End If
Next i
Print "min="; min
Next j
End Sub
 
Private Sub Command2_Click()
End
End Sub

Вам тестер нужен?

Перед тем, как отдавать программу тестеру, разработчик проводит превичное тестирование сам. Проверка проста: запускаешь код и смотришь результат. Если ваш код выдает неправильный ответ, то в коде есть очевидные ошибки. Если ответ правильный, то в коде есть неочевидные ошибки.

Добавлено 24.01.13, 11:34
Неочевидные ошибки есть в коде всегда. Например, в етой строке есть неочевидная осибка: a(i, j) = 9 * j ^ 2 + j ^ 2 - 50

Цитата MIF @ 24.01.13, 11:31

Неочевидные ошибки есть в коде всегда. Например, в етой строке есть неочевидная осибка: a(i, j) = 9 * j ^ 2 + j ^ 2 - 50

Скобки не поставил?
А вот здесь форма.И как бы всё окей.

Скрытый текст

Цитата student9921 @ 24.01.13, 11:44

Скобки не поставил?

Just typo. One wrong letter.

MIF,я вас не понимаю

Код соответствует спецификации?

Цитата student9921 @ 24.01.13, 11:11

aij=9i^2+j^2-50

Цитата student9921 @ 24.01.13, 11:11

a(i, j) = 9 * j ^ 2 + j ^ 2 - 50

Я крот.Господи,боже мой
,MIF

Находит минимальнй элемент,но в строчке.

Скрытый текст

For i = 1 To n
For j = 1 To m
min(j) = Abs(a(i, 1))
If Abs(a(i, j)) < min(j) Then
 min(j) = Abs(a(i, j))
End If
Next j
Print "min="; min(m)
Next i

Я не пойму,что нужно записать в min(j) = Abs(a(?,?))
Пробовал 1,j; j,1;Не понимаю.

dim MinN as integer
 
For i = 1 To n
For j = 1 To m
min(j) = Abs(a(i, 1))
If Abs(a(i, j)) < min(j) Then
 min(j) = Abs(a(i, j))
MinN=j
End If
Next j
Print "min="; min(MinJ)
Next i

MinN - последний минимальный номер элемента.