Задачи с массивами - VB (170120)

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

Помогите с задачей : В массиве из 10 положительных и отрицательных чисел найти наибольшее отрицательное число и его место в массиве. Я пробовал сам,мои наработки

Sub lab8()
Dim m(1 To 10) As Integer
Randomize Timer
For i = 1 To 10
m(i) = (Int(Rnd() * 100) + 1) - 50
Next i
Debug.Print "исходный массив"
For i = 1 To 10
Debug.Print m(i);
Next i: Debug.Print: Debug.Print
Call obrabotka(m())
End Sub
Sub obrabotka(m1() As Integer)
min = 0: k = 1
For i = 2 To 10
If m1(i) < 0 Then
min = m1(i): k = i
End If
Next i
' вывод результатов
Debug.Print "Max="; min, "k="; k
End Sub

Решение задачи: «Задачи с массивами»

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

                            Sub lab8()
Dim m(1 To 10) As Integer
Randomize Timer
For i = 1 To 10
m(i) = (Int(Rnd() * 100) + 1) - 50
Next i
Debug.Print "исходный массив"
For i = 1 To 10
Debug.Print m(i);
Next i: Debug.Print: Debug.Print
Call obrabotka(m())
End Sub
Sub obrabotka(m1() As Integer)
Min = -100
For i = 1 To 10
If m1(i) < 0 And m1(i) > Min Then
Min = m1(i): k = i
End If
Next i
' вывод результатов
Debug.Print "Max="; Min, "k="; k
End Sub
 
Private Sub Form_Load()
lab8
End Sub
                        