您的位置：首页 > 其它

哪错的排序

2016-04-05 16:47 127 查看







Option Base1
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim size As Integer
size=Int(Val(Me.Text1.Text))
Dim a() As Integer
ReDim a(size)
n=LBound(a)
while n<=UBound(a)
a(n)=Int(Rnd*1000)
n=n+1
Wend

Dim swap 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
swap=a(n)
a(n)=a（n+1)
a（n+1)=swap
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
唉
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航