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
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
procmin a, amin '或:Call procmin(a, amin)