vb求助~!!!选择法排序~

Private Sub Command11_Click()
Dim A(1 To 10) As Integer
Cls
Randomize
For i = 1 To 10
A(i) = Int(Rnd * 90 + 10)
Print A(i);
Next
Print
For i = 1 To 10
Max = i
For j = i + 1 To 10
If A(Max) < A(j) Then Max = j
Next
t = A(i)
A(i) = A(Max)
A(Max) = t
Print A(i);
Next
End Sub

Private Sub rank(n As Integer, a() As Long)
For i = 1 To n - 1
For j = i + 1 To n
If a(j) < a(i) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
End Sub

void rank1(int a[],int n)
{
int i,j,t;
for (i=0;i<n-1;i++)
{for(j=i+1;j<n;j++)
{if (a[j]<a[i])
{
t=a[i];a[i]=a[j];a[j]=t;}
};
};
}
优化后的程序：
Private Sub rank(n As Integer, a() As Long)
For i = 1 To n - 1
tmax = i
For j