已知：

张三 23
李四  26
王二 34
……

如何按年龄从小到大的顺序输出姓名？

数组应该如何操作？

我也想到过这个方法，用二维数组。

例：
a(1,1) = 张三      a(2,1) = 23
a(1,2) = 李四      a(2,2) = 26

这种，像坐标一样。

排序时，就是a(2,1)、a(2,2)排序。对应的姓名是：a(2-1,1)、a(2-1,2)

但有两个难题：

1、二维数组声明后，是无法增加数组的（这和一维数组不同，一维数组可临时增加数组）。比如遍历文件，存文件名和文件修改时期。
2、a(2,1)、a(2,2)不能赋值到其它变量中进行排序，要不然就对应不上a(1,1)、a(1,2)了。

应该怎么办？

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

'比较后的交换，可以直接整个元素赋值
Dim at As RYTYPE
at = a(1)
a(1) = a(2)
a(2) = at

这是什么意思，if 都不用的。

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

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

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

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

大致是这样切分的。

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 是没有问题的。

张三，23，男，中国公民，广东省
李四，12，女，美国公民，河南省
王五，68，女，中国公民，河北省

逐行读取，切分为一维数组，每行的内容分别对应 a(0)、a(1)、a(2)、a(3)、a(4)，赋值给B版所说结构体数组即可。

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

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

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