已知：

张三 23
李四  26
王二 34
……

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

order by 年龄

这要看你的数据结构是怎么样的，是数据库还是数组

高手呢...

数组应该如何操作？

数组，拆分为二个元素，
然后按年龄排序，不会写排序，就用 冒泡法 。

连 冒泡法 也不会的话，
拉一个 listbox ，开自动排序，
组合，年龄放前面，然后加到 listbox 中，再按顺序取出，分解，按原样组合。听说过这种的方法。

分解，有分隔符的，可以使用 split 函数
无无隔符的，如果年龄有规定长度的，使用 mid 和 right 函数
无规定长度的，如年龄有2位，有1位的，那么先right再判断。

组合，如果是数组，如split 分解出来的就是数组，可以使用 join 函数再组合
 否则使用 & 手动组合

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

例：
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编辑过]

那好办，使用结构体数组

Option Explicit
Private Type RYTYPE
    姓名 As String
    年龄 As Long
End Type

Dim a() As RYTYPE

Private Sub Command1_Click()

ReDim a(1)
a(1).姓名 = "张三"
a(1).年龄 = 23

ReDim Preserve a(2)
a(2).姓名 = "李四"
a(2).年龄 = 24

Cls
Print a(1).姓名 & a(1).年龄
Print a(2).姓名 & a(2).年龄

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

Print
Print a(1).姓名 & a(1).年龄
Print a(2).姓名 & a(2).年龄

End Sub

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

版主，这样按年龄怎么排序。。

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

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