Private Sub Command1_Click()
Dim a(9) As Integer, i, j, t As Integer
  For i = 0 To 9
   a(i) = InputBox("请输入数字！")
    Print a(i);
  Next i
For i = 1 To 8
  For j = 9 To i
      If a(j) < a(j - 1) Then
      t = a(j): a(j) = a(j - 1): a(j - 1) = t
      End If
  Next j
Next i
Print "after compositor the array is :"
  For i = 0 To 9
  Print a(i);
  Next i
End Sub

经过循环后相当于没循环，直接就把输入的数组输出了！怎么解决这个问题？调用函数吗？请高手指导。
用C语言编写上述程序如下：
#include "stdio.h"
main()
{int a[10],i,j,t;
  printf("\nplease input array!\n");
  for(i=0;i<10;i++)
  scanf("%d",&a[i]) ;
  for(i=0;i<9;i++)
  {
  for(j=10;j>i;j--)
     {
      if(a[j]<a[j-1])
      {t=a[j];a[j]=a[j-1];a[j-1]=t;}
     }
  }
  printf("\nafter compositor the array is:\n") ;
  for(i=0;i<10;i++)
  printf("%d  ",a[i]);
 }

Private Sub Command1_Click()
Dim a(9) As Integer, i As Integer, j As Integer, t As Integer
  For i = 0 To 8
   a(i) = InputBox("请输入数字！")
    Print a(i);
  Next i
For i = 1 To 7
For j = 9 To i+1 step -1
      If a(j) < a(j - 1) Then
      t = a(j): a(j) = a(j - 1): a(j - 1) = t
      End If
  Next j
Next i
Print "after compositor the array is :"
  For i = 0 To 8
  Print a(i);
  Next i
End Sub

谢谢，但我感觉有些数字还是没有排好啊。

如果你的C程序是正确的，那我的应该不会错的吧！试一下下面的：
Private Sub Command1_Click()
Dim a(9) As Integer, i As Integer, j As Integer, t As Integer
  For i = 0 To 8
   a(i) = InputBox("请输入数字！")
    Print a(i);
  Next i
For i = 1 To 7
For j = i+1 To 8
      If a(j) < a(i) Then
      t = a(j): a(j) = a(i): a(i) = t
      End If
  Next j
Next i
Print "after compositor the array is :"
  For i = 0 To 8
  Print a(i);
  Next i
End Sub



[ 本帖最后由 qq1023569223 于 2011-4-1 13:23 编辑 ]

Private Sub Command1_Click()
 Dim a(9) As Integer, i, j, t As Integer
   For i = 0 To 9
    a(i) = InputBox("请输入数字！")
     Print a(i);
   Next i
 For i = 1 To 8
   For j = 1 To 9 - i
       If a(j) < a(j - 1) Then
       t = a(j): a(j) = a(j - 1): a(j - 1) = t
       End If
   Next j
 Next i
 Print "after compositor the array is :"
   For i = 0 To 9
   Print a(i);
   Next i
 End Sub

嗯。是对的