как поменять местами элементы массива?(Visual Bsic)

[Аска]

я в теории все понимаю, но на практике допускаю ошибки
в общем, дан массив V(15). Поменять местами 5 и 9 элементы массива.
Помогите пожалуйста^_^

]Sub Zadanie1()
Dim V(1 To 15) As Single
Dim i As Integer
Dim j As Integer
Dim k As Integer
Randomize
For i = 1 To 15
V(i) = Rnd * 200 - 100
Next i
Debug.Print
k = V(5)
V(5) = V(9)
V(9) = k
Debug.Print "New Array=" & V(i)
End Sub

[Stilet]

Так а че? Прога то написана верно.
Я бы только добавил:

For i = 1 To 15
Debug.Print V(i) & " "
Next

[Аска]

Сообщение от Stilet

Так а че? Прога то написана верно.
Я бы только добавил:

For i = 1 To 15
Debug.Print V(i) & " "
Next

Большое спасибо )