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

来源：学生作业帮助网编辑：六六作业网时间：2024/11/23 15:10:20

Dimia(1To10)AsInteger,iminAsInteger,nAsInteger,iAsInteger,jAsInteger,tAsIntegern=6Fori=1Ton-1imin=iF

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