排序不能把变量名搞丢了，是个难题。

提取出用于比较的键值，只对键值做处理，原来的值管它干嘛，原样写入文件就行。

排序之后，原来的变量和排序后的值照样对应不上。

排序后，值被赋值给了新的变量。

排序，只是对数据进行重新排列，不关变量名的事。
变量名只是一个代号，用完了就没用了。
你要把数据值与名字对应起来，跟着排序，这个就不是普通的排序了，比如数据库，有不同的字段，对一个字段排序，其余的字段值也会跟着变化顺序。
你要的数据排序，一个变量对应的就不只是一个数据了。就要用type语句定义自定义数据类型，参加排序的就是一组数据了。
比如定义以下数据：
Type 人员   '创建用户自定义的类型。
   ID As Integer   
   姓名 As String * 20
   年龄 As integer
   电话 As string * 11
End Type
然后用ID进行排序，或者用年龄排序，这样名称就不会乱了。

Private Type 人员   '创建用户自定义的类型。
   ID As Integer
   姓名 As String * 20
   年龄 As Integer
   电话 As String * 11
   End Type
   Dim a() As 人员

Private Sub Form_Load()

   '-------------------
   '数据如下：
   '张三 27 13555555555
   '李四 23 18777777777
   '王二 36 19099999999
   '-------------------
   

   '张三 27 13555555555
   ReDim Preserve a(1)
   a(1).ID = 1
   a(1).姓名 = "张三"
   a(1).年龄 = 27
   a(1).电话 = "13555555555"

   '李四 23 18777777777
   ReDim Preserve a(2)
   a(2).ID = 2
   a(2).姓名 = "李四"
   a(2).年龄 = 23
   a(2).电话 = "18777777777"
   
   
   '王二 36 19099999999
   ReDim Preserve a(3)
   a(3).ID = 3
   a(3).姓名 = "王二"
   a(3).年龄 = 36
   a(3).电话 = "18777777777"
   
   'Debug.Print a(1).年龄
   'Debug.Print a(2).年龄
   'Debug.Print a(3).年龄
   
   
   '-------------------------
   '冒泡排序，升序排列算法
   '-------------------------
   
   '定义变量
    Dim arr1
   '数组赋值
    arr1 = Array(a(1).年龄, a(2).年龄, a(3).年龄)
    For m = 0 To UBound(arr1)
      For i = m + 1 To UBound(arr1)
          k = arr1(m)
          If arr1(m) > arr1(i) Then
               arr1(m) = arr1(i)
              arr1(i) = k
         End If
     Next
     MsgBox arr1(m)
    Next

End Sub


年龄是排序出来了，但是却对应不上姓名了，如何根据年龄输出姓名呢？求教。

[此贴子已经被作者于2022-11-23 16:43编辑过]

 arr1 = Array(a(1).年龄, a(2).年龄, a(3).年龄)
    For m = 0 To UBound(arr1)
      For i = m + 1 To UBound(arr1)
          k = arr1(m)
          If arr1(m) > arr1(i) Then
               arr1(m) = arr1(i)
              arr1(i) = k
         End If
     Next
     MsgBox arr1(m)
    Next

年龄放错位置了

 arr1 = Array(a(1), a(2), a(3))
    For m = 0 To UBound(arr1)
      For i = m + 1 To UBound(arr1)
          k = arr1(m)
          If arr1(m).年龄 > arr1(i).年龄 Then
               arr1(m) = arr1(i)
              arr1(i) = k
         End If
     Next
     MsgBox arr1(m)
    Next

特意的抛弃原值进行排序很没有意思

编译错误

我的意思是 arr1 = Array(a(1).年龄, a(2).年龄, a(3).年龄)这句代码抛弃了原来的数据的信息，以后对对数组的排序变得毫无意义，arr1 = Array(a(1), a(2), a(3))就是要保留原数据，当然还有许多方法保留原数据的信息，至于编译错误，你还是自己寻找原因加以解决吧。

   Dim a() As 人员
    arr1 = Array(。。。)
a() 已是数组，为啥还要重定义为数组呢？
直接对 A排序不行吗？  重定义为 数组后，原数组又没有排序，那有什么意义。

B哥能不能给点代码，脑子一团糟理不清逻辑。