想把一个排序算法封装成内部函数，代码如下，但是没通过，请教！
方案A：
Dim lst As new List(Of Integer) = Args(0)
Dim n As Integer = lst.count
Dim i,j,temp As Integer
For i = 0 To n -1
For j = 0 To n -1-i
If lst(j) > lst(j+1) Then
temp = lst(j)
lst(j) = lst(j+1)
lst(j+1) = temp
End If
Next
Next
方案B：
Dim n As Integer = Args(1)
Dim lst(n) As Integer = Args(0)
Dim i,j,temp As Integer
For i = 0 To n -1
For j = 0 To n -1-i
If lst(j) > lst(j+1) Then
temp = lst(j)
lst(j) = lst(j+1)
lst(j+1) = temp
End If
Next
Next
[此贴子已经被作者于2015-1-12 21:43:37编辑过]
加好友 
发短信
Post By：2015/1/12 21:42:00 [只看该作者]
