求VB字符串排序函数:一维字符串数组,从小到大排序

兄弟在线求帮请分析下,求VB字符串排序函数:一维字符串数组,从小到大排序
最新回答
玩贴吧的好菇凉

2025-03-30 01:13:23

Sub mySort(ByRefa() As String, n As Integer)Dim i, j AsIntegerDim c As String For i = 1 To n For j = i + 1 To n If a(i) > a(j) Then c = a(i) a(i) = a(j) a(j) = c End If NextNextEnd Sub