作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/06/01 22:53:04
vb中怎么把一组数从小到大排列起来呢?求帮助
假设我的vb里生成了5个随机数,分别存放在a到e中,我怎么把这几个数按照从小到大的顺序排列起来呀?
vb中怎么把一组数从小到大排列起来呢?求帮助
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