Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As Integer,j As Integer,t As Integern = 6For i = 1 To n - 1 imin = i For j = i + 1 To nIf ia(j) < ia(imin) Then imin = jNext jt = ia(i)ia(i) = ia(imin)ia(imin) = tNext i

Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As Integer,j As Integer,t As Integern = 6For i = 1 To n - 1 imin = i For j = i + 1 To nIf ia(j) < ia(imin) Then imin = jNext jt = ia(i)ia(i) = ia(imin)ia(imin) = tNext i
Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As Integer,j As Integer,t As Integer
n = 6
For i = 1 To n - 1
imin = i
For j = i + 1 To n
If ia(j) < ia(imin) Then imin = j
Next j
t = ia(i)
ia(i) = ia(imin)
ia(imin) = t
Next i

Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As Integer,j As Integer,t As Integern = 6For i = 1 To n - 1 imin = i For j = i + 1 To nIf ia(j) < ia(imin) Then imin = jNext jt = ia(i)ia(i) = ia(imin)ia(imin) = tNext i
Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As Integer,j As Integer,t As Integer
n = 6
For i = 1 To n - 1
imin = i
For j = i + 1 To n
If ia(j) < ia(imin) Then imin = j
Next j
t = ia(i)
ia(i) = ia(imin)
ia(imin) = t
Next i
这谁编的,数组里都是0有什么好比的,逗我们玩啊还问什么意思