vb中怎么把一组数从小到大排列起来呢？求帮助

Question

假设我的vb里生成了5个随机数，分别存放在a到e中，我怎么把这几个数按照从小到大的顺序排列起来呀？

Answer 1

n2是存放数值的数组长度
For j = 1 To n2 '排序
For i = 1 To n2 - 1
If temp(i) < temp(i + 1) Then
st = temp(i)
temp(i) = temp(i + 1)
temp(i + 1) = st
End If
Next
Next

Answer 2

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) & " "
Next
Text1.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 If
Next
Next
bubbleSort = arr
End Function本回答被提问者采纳