vb冒泡程序给出10个数排序

已解决问题 - 浏览254次

下一个已解决问题

过客

221.3.241.*

vb冒泡程序给出10个数排序来源：网页搜索

按从小到大的顺序排序

问题地区标注：云南省->昭通市->昭阳区

2008-09-26 23:07:23 - 1个回答 - 10

收藏寄给朋友检举

回答网页搜索问题，赢取更多奖品详情>> 添加/查看意见（0）

有所不为

传胪

最佳答案 - 由投票者2008-10-11 23:12:01选出

'标准的冒泡排序例程
Private Sub Form_Click()
Dim a(10)

'生成测试用例
For i = 1 To 10
a(i) = Int(Rnd * 10)
Print a(i);
Next
Print

'排序
For i = 10 To 1 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next
Next

'输出
For i = 1 To 10
Print a(i);
Next

Print

End Sub

'附运行截图: