你看了注释吗？这只是交换的示例。
完整是
Dim at As RYTYPE
if a(1).年龄 > a(2).年龄 then
   at = a(1)
   a(1) = a(2)
   a(2) = at
end if

看了我8楼的示例代码吗？
结构体这样定义
Private Type RYTYPE
    姓名 As String
    年龄 As Long
    性别 as string
    国籍 as string
    籍贯 as string
End Type
每一行如何拆分放数组元素里自己动动脑筋想想
比较代码示例看 11楼。

结构体数组是个好东西，网上找不到资料。

看明白了11楼的代码，交换了变量的值。

[此贴子已经被作者于2022-11-6 18:58编辑过]

不会的是怎么把TXT中的数据赋到数组

这个好办，读取文件内容，切分为数组即可。

大致是这样切分的。

Private Sub Form_Load()
s = "11 22 33 44 55 66 77 88 99"
arr = Split(s, " ") '以空格为分隔符
For i = 0 To UBound(arr)
MsgBox arr(i)
Next
End Sub

第8楼的代码，可以写一个 查找计算机中最新的文件，TOP100 是没有问题的。

这是一维数组，但多维的我就不会怎么表达了，像我给的那个附档

8楼的代码就是把你这种的 二维数组转变为一维数组来处理。
其实结构体数组，元素里还可以再包含 可变/固定 数组 的。

把记录拆分，写入数组，然后排序，最后再组合为原记录，为什么这么做呢，排序必须要拆分吗，没有必要吧，把需要比较的字段，提取出来作为键值进行排序不是很正常的吗。

如果每个记录里只有一个年龄是数字且年龄为整数的话，可以不用拆分，可以不需要使用传统排序手段，一次扫描就可以排序完成，反正不会有人超过150岁。如果把年龄写在姓名前面就更简单，只需要用val函数就可以直接提取年龄，不在前面，可以自己写一个提取年龄的函数。