请问，若有数组Dim ss() As String ={6,5,8,9}，要实现该数组，从小到大应该怎么编写程序呀？？
知道的，说下好吗？？非常感谢！！！

冒泡排序
Dim ss As String() = {6, 5, 2, 7}
Dim i As Integer
Dim j As Integer
Dim Temp '不定义变量类型,以自动适应数组Ar的类型
Dim Flag As Boolean
Dim n As Integer = ss.Length - 1
For i = 1 To n
Flag = False
'从第1个元素开始,比较每两个相邻元素的大小,让大元素下沉,小元素上浮
'经过一轮循环,可使数组中最大元素下沉到数组最底部
'进入下一轮循环,只对前 n - i 个元素进行相邻比较(已排到后面的不用比较)
For j = 0 To n - i
If ss(j) > ss(j + 1) Then
Temp = ss(j)
ss(j) = ss(j + 1)
ss(j + 1) = Temp
Flag = True '如果有排序行为，则设为 True
End If
Next
If Flag = False Then '如未排序,说明已完成整个排序过程,退出
Exit For
End If
Next

不错

支持

不过双重循环为什么定义FLAG呢?


完了不就自动退出了吗?

而且如果有一个FLASE就退出,很有可能出错的.....

恩，实在是非常感谢啊！！

Dim i, j As Integer
Dim min, index As Integer
Dim t As Integer
Dim a As Integer() = {32, 23, 14, 35, 64, 21, 36, 87, 7, 8}
For i = 0 To a.Length - 2
min = a(i)
index = i
For j = i + 1 To a.Length - 1
If min > a(j) Then
min = a(j)
index = j
End If
Next j
If index <> i Then
t = a(i)
a(i) = a(index)
a(index) = t
End If
Next i

选择排序

插入排序
Dim list As Integer() = {1, 13, 3, 6, 10, 55, 98, 2, 87, 12, 34, 75, 33, 47}
For i As Integer = 1 To list.Length - 1
Dim t As Integer = list(i)
Dim j As Integer = i
While ((j > 0) And (list(j - 1) > t))
list(j) = list(j - 1)
j = j - 1
End While
list(j) = t
Next
ListBox1.Items.Clear()
For i = 0 To list.Length - 1
ListBox1.Items.Add(list(i).ToString)
Next

感谢各位的帮助呀！！

是不是有个方法名叫：sort
不知道能不能用于String