在Visual Basic 6.0 中如何将该数字按递增序排列

来源：百度知道 编辑：UC知道 时间：2024/09/22 00:59:05
应该用什么代码?可以举一个详细的例子就最好了~谢谢啊~

'需要控件: command1

Private Sub Command1_Click()
Dim intT
intarr = Array(12, 28, 29, 30, 31, 52, 24, 60) '初始化数组intarr
For i = LBound(intarr) To UBound(intarr)
For j = LBound(intarr) To UBound(intarr)
If intarr(i) < intarr(j) Then intT = intarr(j): intarr(j) = intarr(i): intarr(i) = intT
Next j
Next i

For i = LBound(intarr) To UBound(intarr)
Print intarr(i)
Next i

End Sub