几个数中的最小值

最新推荐文章于 2022-09-18 23:25:29 发布

qq_34327546

最新推荐文章于 2022-09-18 23:25:29 发布

阅读量307

点赞数

本文链接：https://blog.csdn.net/qq_34327546/article/details/51028794

版权

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

这个程序不能执行。小心灵受伤了。