15数字排序最后一个最小

最新推荐文章于 2025-08-12 09:38:35 发布

原创最新推荐文章于 2025-08-12 09:38:35 发布 · 303 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用Visual Basic编写的程序，该程序能够生成一组随机整数，并通过简单的冒泡排序变种确保列表中的最后一个元素是最小值。虽然这种方法并不实现完整的排序，但展示了基本的排序逻辑和VB编程技巧。

Private Sub Command1_Click()
Cls
Dim a As Integer
Dim xier(15) As Integer
n = 1
While n <= 15
xier(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
n = 1
While n <= 14
If xier(n) < xier(n + 1) Then
swap = xier(n)
xier(n) = xier(n + 1)
xier(n + 1) = swap
End If
n = n + 1
Wend
n = 1
While n <= 15
Print xier(n)
n = n + 1
Wend
End Sub