Найти три наименьших элемента массива - VB (170262)

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

Задача. Найти три наименьших элемента массива:Z={4;-2;17;8;-3;7;0;1;5;-12;-11;-4;9} и указать их индексы. Посмотрите пожалуйста, это правильно или нет?) Заранее спасибо.

Sub min3(A() As Integer)
i1% = 1
i2% = 1
i3% = 1
For i% = 2 To UBound(A, 1)
If A(i%) < A(i1%) Then
i2% = i1%
i3% = i2%
i1% = i%
ElseIf A(i%) < A(i2%) Then
i3% = i2%
i2% = i%
ElseIf A(i%) < A(i3%) Then
i3% = i%
End If
Next i%
Debug.Print "A("; i1%; ")="; A(i1%)
Debug.Print "A("; i2%; ")="; A(i2%)
Debug.Print "A("; i3%; ")="; A(i3%)
End Sub

Sub test()
Dim Arr(1 To 13) As Integer
For i% = 0 To 12
Arr(i% + 1) = Array(4, -2, -17, 8, -3, 7, 0, 1, 5, -12, -11, -4, 9)(i%)
Next i%
min3 Arr
End Sub

Вывод: A( 3 )=-17 A( 10 )=-12 A( 11 )=-11

Решение задачи: «Найти три наименьших элемента массива»

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

                            Sub min3(A() As Integer)
i1% = 1
i2% = 1
i3% = 1
For i% = 2 To UBound(A, 1)
If A(i%) < A(i1%) Then
i3% = i2%
i2% = i1%
i1% = i%
ElseIf A(i%) < A(i2%) Then
i3% = i2%
i2% = i%
ElseIf A(i%) < A(i3%) Then
i3% = i%
End If
Next i%
Debug.Print "A("; i1%; ")="; A(i1%)
Debug.Print "A("; i2%; ")="; A(i2%)
Debug.Print "A("; i3%; ")="; A(i3%)
End Sub
Sub test()
dim v(): v=Array(4, -2, -17, 8, -3, 7, 0, 1, 5, -12, -11, -4, 9)
For i% = 0 To 12
Arr(i% + 1) = v(i%)
Next i%
min3 Arr
End Sub
                        