（编程）对-8,3,-7,-25,26,127,-380,25,168,1,-100按升序排列

不知道你用的VB是VB6还是VB2005,如果是VB2005的这个问题超简单:
dim a as integer()=new integer(){-8,3,-7,-25,26,127,-380,25,168,1,-100}
array.sort(a)

pascal源程序：
program ex;
var
a:array[1..11] of integer;
begin
for i:=1 to 11 do read(a[i]);
for i:=11 downto 1 do
for j:=1 to i do
if a[j]>a[j+1] then begin t:=a[j];a[j]:=a[j+1];a[j+1]:=t;end;
for i:=1 to 11 do write(a[i]);
end.