15个数用循环结构比较大小

最新推荐文章于 2023-12-20 20:28:31 发布

-答案

最新推荐文章于 2023-12-20 20:28:31 发布

阅读量731

点赞数

本文链接：https://blog.csdn.net/Wangqi629/article/details/51028317

版权

Option Base 1

Private Sub Command1_Click()
Cls
Dim n As Integer, x As Integer
x = Int(Val(Me.Text1.Text))
Dim a() As Integer
ReDim a(x)

n = LBound(a)
While n <= UBound(a)
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim m As Integer, t As Integer
m = LBound(a)
While m <= UBound(a) - 1
n = LBound(a)
While n <= UBound(a) - m
If a(n) < a(n + 1) Then
t = a(n): a(n) = a(n + 1): a(n + 1) = t
End If
n = n + 1
Wend
m = m + 1
Wend
n = LBound(a)
While n <= UBound(a)
Print a(n)
n = n + 1
Wend
End Sub