Private Sub form_Click()
    Dim a%(10), amin%
    For i = 0 To 9
    Randomize
    a(i) = Int(-101 * Rnd - 300)
    Print a(i);
    Next i
    Call procmin(a%(), amin%)
  
End Sub
Public Sub procmin(a%(), ByRef amin%)
   For i = 0 To 1
   imin = i
   For j = i + 1 To 9
    If a(j) < a(imin) Then imin = j
    Next j
    t = a(i)
    a(i) = a(imin)
    a(imin) = t
    Next i
     Print "amin="; a(0)
   End Sub为什么下面这样做是错的呢?Private Sub form_Click()
    Dim a%(10), amin%
    For i = 0 To 9
    Randomize
    a(i) = Int(-101 * Rnd - 300)
    Print a(i);
    Next i
    Call procmin(a%(),  ByRef amin%)
  
End Sub
Public Sub procmin(a%(), ByRef amin%)
   For i = 0 To 1
   imin = i
   For j = i + 1 To 9
    If a(j) < a(imin) Then imin = j
    Next j
    t = a(i)
    a(i) = a(imin)
    a(imin) = t
    Next i
     Print "amin="; a(0)
   End Sub