ЗРАДА ЧИ ПЕРЕМОГА?

Option Explicit
Dim rq As String
Dim endl As String
Dim a As Integer
Dim b As Integer
Dim n As Integer
Dim i As Integer
Dim cout As String
Dim coutS As String
Dim FirstIndex As Integer
Dim LastIndex As Integer
Dim arr() As Integer
Dim swap As Integer



Private Sub btnExit_Click()
End
End Sub

Public Sub btnInput_Click()

End Sub

Public Sub btnReq_Click()
tbR.MultiLine = True
endl = Chr(13) + Chr(10)
rq = "Äàí ìàññèâ èç í öåëûõ ÷èñåë èçìåíèâ ïîðÿäîê ñëåäîâàíèÿ íà îáðàòíûé ìåæäó ïåðâûì è ïîñëåäíèì îòðèöàòåëüíûì ýëìåíòîì" + endl
rq = rq + "Ââîä äîëæåí áûòü ñäåëàí ÷åðåç äñ÷ â çàäàííîì äèàïîçîíå(à, á)"
tbR.Text = rq
End Sub



Public Sub btnSolution_Click()
n = Val(InputBox("Ââåäèòå êîë-âî ýëåìåíòîâ"))
a = Val(InputBox("Ââåäèòå à"))
b = Val(InputBox("Ââåäèòå á"))
ReDim arr(n)
For i = 1 To n
arr(i) = Int((b - a + 1) * Rnd + a)
Next i


tbRr.MultiLine = True
 For i = 1 To n
cout = cout + "Ýëåìåíò " + Str(i) + ":" + Str(arr(i)) + endl
Next i
tbRr.Text = cout
FirstIndex = 32000
LastIndex = 0


For i = 1 To n - 1
If arr(i) < 0 Then If i < FirstIndex Then FirstIndex = i: If i > LastIndex Then LastIndex = i

Next i


tbSwap.MultiLine = True
swap = arr(FirstIndex)
arr(FirstIndex) = arr(LastIndex)
arr(LastIndex) = swap



For i = 1 To n
coutS = coutS + "Ýëåìåíò " + Str(i) + ":" + Str(arr(i)) + endl
Next i
tbSwap.Text = cout


End Sub

Private Sub tbRr_Change()

End Sub



Private Sub tbSwap_Change()

End Sub