VB编写一个数组,数组元素是10个0~100之间的随机整数用冒泡排序法对这10个随机整数进行从大到小排序输出
VB编写一个数组,数组元素是10个0~100之间的随机整数然后采用冒泡排序法对这10个随机整数进行从大到小排序输出...
VB编写一个数组,数组元素是 10个0~100之间的随机整数 然后采用冒泡排序法对这10个随机整数进行从大到小排序输出
展开
1个回答
展开全部
Sub x()
Dim arr(1 To 10) As Integer, i, j, k
'产生随机数
For i = LBound(arr) To UBound(arr)
arr(i) = Int(Rnd * 100)
Next i
MsgBox "随机生成的数据是:" & Join(arr, ",")
'排序
For i = LBound(arr) To UBound(arr) - 1
k = i
For j = i + 1 To UBound(arr)
If arr(j) > arr(k) Then k = j
Next j
If k <> i Then
j = arr(k)
arr(k) = arr(i)
arr(i) = j
End If
Next i
'输出
MsgBox "排序之后的数据是:" & Join(arr)
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询