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) 回复
??
by: 发表于:2017-11-27 11:25:58 顶(0) | 踩(0) 回复
??
回复评论