输出数中最小的一个数在最后！！！

最新推荐文章于 2024-04-15 19:47:05 发布

bin357852676

最新推荐文章于 2024-04-15 19:47:05 发布

阅读量310

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/bin357852676/article/details/51043428

本文介绍了一个使用Visual Basic实现的简单排序算法示例。通过随机生成一组整数，并采用冒泡排序的方式对这些整数进行从大到小的排序。在代码实现过程中，作者分享了上机操作的心得体会，强调了编程时细节的重要性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Command1_Click()

Cls

Font.Size = 30

Dim n As Integer

Dim sierdun(15) As Integer

n = 1

While n <= 15

sierdun(n) = Int(Rnd * 1000)

n = n + 1

Wend

Dim swap As Integer

n = 1

While n <= 14

If sierdun(n) < sierdun(n + 1) Then

swap = sierdun(n)

sierdun(n) = sierdun(n + 1)

sierdun(n + 1) = swap

End If

n = n + 1

Wend

n = 1

While n <= 15

Print sierdun(n)

n = n + 1

Wend

End Sub

心得体会:在上机操作时由于少写了n=1，结果操作出来数出来的数中最后一个数不是最小的，经过检查后发现了，所以做事一定要细心。最大的感慨是这次发表博客太不容易了，周四在机房操作没连上网，周五两次路过电子阅览室都没开门，我在手机上操作了4、5遍都没发表成功，心好累呀！这三天都在假期阅览室不开门，没办法只好今天才发博客了。