
Private Sub choose(a() As Integer)
Dim i As Integer, j As Integer, temp As Integer
For i = 1 To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
End Sub




by: 发表于:2017-11-27 11:25:58 顶(0) | 踩(0) 回复
??
回复评论