01-03-2012, 05:46 PM
Code:
dim arr(10),x
'TO READ THE INPUT FROM USERS
for i=0 t0 9
arr(i)=cint(inputbox("enter 10 numbers"))
next
'SORT THE INPUT
for i=0 to ubound(arr)
if arr(i)>arr(i+1) then
x=arr(i)
arr(i)=arr(i+1)
arr(i+1)=x
end if
next
'to display the array vALUES
for i=0 to 9
str=str&arr(i)&vblf
next