埃魅知识百科 > VB定义一个含有10个元素的数组并对其进行初始化，编程对数组进行升序排序。

VB定义一个含有10个元素的数组并对其进行初始化，编程对数组进行升序排序。

2025-12-14 10:30:40

推荐回答（2个）

回答1：

'冒泡排序法(升序)
Public Sub PopoAsc(ByRef Bobo() As String, ByVal m As Integer) 'm是数据个数
Dim i As Integer
Dim j As Integer
Dim tem As String'冒泡排序法，核心程序
For i = 1 To m - 1
For j = 1 To m - i
If (Bobo(j) > Bobo(j + 1)) Then
tem = Bobo(j)
Bobo(j) = Bobo(j + 1)
Bobo(j + 1) = tem
End If
Next j
Next iEnd Sub

回答2：

http://www.itlearner.com/article/2682各种VB排序算法的详细文件，如果不会我给你写源码~