程序如下



Function BubbleSort(list() As Double) As Double

' 冒泡法进行排序

Dim First As Double, Last As Double
Dim I As Integer, j As Integer
Dim Temp As Double

I = list(0)
j = list(1)
First = LBound(list)
Last = UBound(list)
For I = First To Last - 1
For j = I + 1 To Last
If list(I) > list(j) Then
Temp = list(j)
list(j) = list(I)
list(I) = Temp
End If

Next j
Next I

End Function

你的函数定义的返回是双精值 还想要数组

要么参数用值传递 (这个比较好)
要么改成sub 用全局数组(不推荐)

Private Sub BubbleSort(byref list() As Double)

End SUb

都排好了还拿不到最小值??

你的变量定义错了
First 和　Last应该是整形变量

并且这两句
I = list(0)
j = list(1)
没意义

　I = list(0)
j = list(1)
这两句我是想表示I和J都是从下面程序中读出来的数据中的数
帮我看看怎么才能实现把下面程序中读出来的数据实现大小排列
谢谢了　
　Function ArraySum(arr As Variant) As Variant()

Dim intCount As Long
Dim ArrayDemo As String
Dim intMark As Long
Dim atemp() As Variant
Dim colTemp As Collection
Dim strField As Integer
Dim strLine As Integer
Dim Lstr As String
Dim FileNumber


If ExistFile(NormalizePath(Trim$(colTemp(Key_DBPath))) & "BKPF.TXT") = True Then
intCount = ReturnTxtCount(NormalizePath(Trim$(colTemp(Key_DBPath))) & "BKPF.TXT")

Dim colFields As Collection
GetFields "BKPF", colFields


FileNumber = FreeFile ' 取得未使用的档案代码。
Open NormalizePath(Trim$(colTemp(Key_DBPath))) & "BKPF.TXT" For Input As #FileNumber
Dim bGetField As Boolean
bGetField = False

Do While Not EOF(FileNumber)
intMark = intMark + 1
Line Input #FileNumber, Lstr
If InStr(4, Lstr, "|") > 0 Then

If bGetField = False Then
bGetField = True

Else
'将所有年份均拷入临时表中
atemp() = Split(Lstr, "|")

'year
strField = "K" & DelTabAndCrlf(atemp(colFields("FieldGJAHR")))
strLine = "'" & strField & "'"
strLine = strLine & ","
End If
ArraySum = atemp

End If
Loop
Close #FileNumber
End If

Dim tempint() As Double

BubbleSort tempint
End Function