Сделать програмку и схему алгоритма решения - VB

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

Товарищи, помогите пожалуйста, я плохо шарю в VB, хочу разобраться, а мне очень нужно сделать програмку и схему алгоритма решения (mail: removed@mail.ru) "ПРОГРАММНЫЙ ЭЛЕМЕНТ “ПОИСК" 1. Напечатать индексы и значения элементов вектора J7 размерности М, больших по модулю величины G Для отладки программы значения М, G и вектора J7 выбрать само¬стоятельно. 2. Найти наименьший элемент К-го столбца матрицы Р размерности М*N.Для отладки программы значения К, М, N, Р выбрать самостоя¬тельно.

Решение задачи: «Сделать програмку и схему алгоритма решения»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim p() As Single
Dim m, n
Dim k As Single, min As Single
m = InputBox("m")
n = InputBox("n")
k = InputBox("k")
ReDim p(1 To n, 1 To n) As Single
For i = 1 To n
    For j = 1 To m
    p(i, j) = InputBox("Vvedite element: " & i & j)
    Next j
Next i
Max = p(1, k)
For i = 1 To n
If p(i, k) < min Then min = p(i, k)
Next i
MsgBox (min)
End Sub
                        