Получить последовательность a1<= a2<= ...<= an+1 - VB

CLS
RANDOMIZE TIMER
 
n = 10
C = 7
PRINT "C ="; C
PRINT
REDIM A(n + 1) AS LONG
 
FOR i = 1 TO n
   A(i) = 18 * RND - 9
   PRINT A(i);
NEXT
PRINT : PRINT
A(n + 1) = C
 
FOR i = 1 TO n
FOR j = i + 1 TO n + 1
   IF A(i) > A(j) THEN
      b = A(i)
      A(i) = A(j)
      A(j) = b
   END IF
NEXT j, i
 
FOR i = 1 TO n + 1
   PRINT A(i);
NEXT