vb中怎么把一组数从小到大排列起来呢?求帮助假设我的vb里生成了5个随机数,分别存放在a到e中,我怎

网友回答

Private Sub Command1_Click()
dim v:v=2,3,4,1,6,8,5
Dim a:a = Split(v,,)
a = bubbleSort(a)
Dim str:str =
For i = 0 To UBound(a)
str = str & a(i) &
NextText1.Text = str
End Sub
Function bubbleSort(ByVal arr)
'冒泡排序法
Dim i,j
For i = 0 To UBound(arr) - 1
For j = i + 1 To UBound(arr)
If arr(i) > arr(j) Then
t = arr(j)
arr(j) = arr(i)
arr(i) = t
End IfNextNextbubbleSort = arr
End Function