Исправление ошибок - VB

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

Dim M(), K, N, max
K = InputBox("K"): N = InputBox("N")
ReDim M(1 To K, 1 To N)
For i = 1 To K
For j = 1 To N
M(i, j) = Int(100 * Rnd - 50)
Next j
Next i
max = M(1, 1)
For i = 1 To K
For j = 1 To N
If M(i, j) > max Then max = M(i, j)
Next j
Next i
M(K, 1) = max

а вот само задание Определить наименьший элемент матрицы М размерности К*N, присвоить его значение первому элементу последней строки.

Решение задачи: «Исправление ошибок»

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

                            Private Sub Command1_Click()
Dim X As Single, Y As Single, A As Integer
If X > 12 And A > X Then
    Y = 2 * Sqr(A) * X / Sqr(A + X)
ElseIf X > 0 And X < 5 Then
    Y = Sqr(A) + Sqr(X)
End If
End Sub
                        