问题?

Question

Dim TempFile As Long
Dim LoadBytes() As Byte
Dim TempStr as string
Dim TempStrs() as string
Dim MaxI as long
Dim TempNum() as long
Dim I as long,J as longTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileTempStr=StrConv(LoadBytes,vbUniCode)
TempStrs=Split(TempStr,",")
MaxI=UBound(TempStrs)
Redim TempNum(0 to MaxI)
For I=0 to MaxI
    TempNum(I)=Val(TempStrs(I))
Next I至于排序的算法
自己写吧