Решение масивов Visual Basic - VB

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

Добрый день помогите решить следующую задачу! Заранее спасибо! Задан массив x1, x2, …, x15. Определить номер первого отрицательного xi и номер последнего отрицательного xi.

Решение задачи: «Решение масивов Visual Basic»

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

                            Sub Task()
Dim X(1 To 15) As Integer, i As Integer, sStr As String
Dim iIndFirst As Integer, iIndLast As Integer
iIndFirst = 15: iIndLast = 1
For i = 1 To 15
    X(i) = Int(Rnd * 99 - 50)
    sStr = sStr & X(i) & ", "
    If X(i) < 0 Then
        If i < iIndFirst Then iIndFirst = i
        If i > iIndLast Then iIndLast = i
    End If
Next
MsgBox sStr & vbNewLine & vbNewLine & "   ГЏГҐГ°ГўГ»Г© Г®ГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Г© В№ " & _
iIndFirst & vbNewLine & "   ГЏГ®Г±Г«ГҐГ¤Г*ГЁГ© Г®ГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Г© В№ " & iIndLast
End Sub
                        