Quick test professional 11

'Arrange the Number in sequence 


a = array(23,1,89,34,234,56,765,345,32,65,3)
For i=0 to ubound(a)-1
If a(i)>a(i+1) Then
    c=a(i+1)
    a(i+1)=a(i)
    a(i)=c
  
End If
  
Next
For j=0 to ubound(a)
temp =temp&" "&a(j)
  
Next
msgbox(temp)