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) 回复
??
回复评论