+ -
当前位置:首页 → 问答吧 → 这些简单代码什么意思?高人指点。希望详细点!

这些简单代码什么意思?高人指点。希望详细点!

时间:2011-07-27

来源:互联网

Private Sub Sort(Arry() As Integer, ByVal N As Integer)
  Dim I As Integer, J As Integer, K As Integer, Temp As Integer
  For I = 0 To N - 2
  K = I
  For J = I + 1 To N - 1
  If Arry(K) > Arry(J) Then
  K = J
  End If
  Next J
  If K > I Then
  Temp = Arry(K): Arry(K) = Arry(I): Arry(I) = Temp
  End If
  Next I
End Sub

作者: Q472152323   发布时间: 2011-07-27

低人也看得懂吧, 把数组中的值从小到大排序.

作者: rainbow5568   发布时间: 2011-07-27

热门下载

更多