Дана последовательность чисел а1,а2. Выяснить, будет ли она возрастать

if a(1) > a(2) then
  for i=2 to ubound(a)-1
    if a(i) < a(i+1) then msgbox "не убыв. и не возраст.": exit for
  next i
  msgbox "возраст."
else
  for i=2 to ubound(a)
    if a(i) > a(i+1) then msgbox "не убыв. и не возраст.": exit for
  next i
  msgbox "убыв."
end if

Function BubbleSort(ByVal ArrToSort As Variant) As Variant
Dim iUpLim As Integer, iLowLim, bSorted As Boolean, i As Integer, vTmp
If Not IsArray(ArrToSort) Then Exit Function
iUpLim = UBound(ArrToSort): iLowLim = LBound(ArrToSort)
Do While Not bSorted
    bSorted = True
    For i = (iUpLim - 1) To iLowLim Step -1
        If ArrToSort(i + 1) < ArrToSort(i) Then
            bSorted = False
            vTmp = ArrToSort(i)
            ArrToSort(i) = ArrToSort(i + 1)
            ArrToSort(i + 1) = vTmp
        End If
    Next
Loop
BubbleSort = ArrToSort
End Function

dim m(1 to 11)
for i = 1 to 10
m(i) = fix(rnd(1) * 200) + 50
next i
x = 50
for i = 1 to 10
x  = x + 30
next i
for i= 1 to 9
for j = 1 to 9
if m(j) > m(j + 1) then
r = m(j)
m(j ) = m(j + 1)
m(j + 1) = r
end if
next j
next i
x = 50
for i = 1 to 10print m(i);
x = x + 30
next i