Задача с одномерным массиврм в visual basic6

[Sergei1]

Дан одномерный массив а вещественного типа, состоящий из n элементов. «За один просмотр» найти первый и последний, считая слева направо, элемент, имеющий заданное значение х, т.е. определить индексы этих элементов.

Массив 1 2 3 5 1 6 1 0
x=1

Часть текста проги с выводом/вводом и т.д. :
Public Sub vyvod(b(), n, nf)
List2.Clear
For i = 1 To n
Print #nf, b(i)
List2.AddItem b(i)
Next i
Print #nf,
End Sub

Public Sub vvod(b(), n, nf)
List1.Clear
For i = 1 To n
Input #nf, b(i)
List1.AddItem b(i)
Next i
End Sub

Private Sub pMnuResult_Click()
Dim nf1 As Integer, nf2 As Integer, n As Integer, i As Integer, First As Integer
Dim Last As Integer
Dim Flag As Boolean
nf1 = 1
nf2 = 2
Open "D:\VB\massIn.txt" For Input As #nf1
Open "D:\VB\massOut.txt" For Output As #nf2
Input #1, n
ReDim a(n)
Call vvod(a(), n, nf1)
?
?
?
Call vyvod(a(), n, nf2)
Close
End Sub

Вот на этой основе (на местах ??) надо прогу написать. помогите кто знает пжл=)