vb冒泡排序法流程图_vb数组排序-冒泡排序法

时　间:2012-05-27 22:56:30

作　者:摘　要:设计一个程序,输入n,再输入n个数,把他们从大到小排序,并把排序后的数组从大到小显示出.

正　文:

程序如下

Private Sub Command1_Click()

Dim N As Integer, Ar() As Integer, i As Integer, j As Integer, T As Integer

N = Val(InputBox(“输入数字的个数”)) – 1

ReDim Ar(N)

For i = 0 To N

Ar(i) = Val(InputBox(“输入第” & i & “个数字：”))

Next i

Print “排序前的结果是：”

For i = 0 To N

Print Ar(i); ”    “;

Next i

For i = N To 1 Step -1

For j = 0 To i – 1

If Ar(j) < Ar(j + 1) Then

T = Ar(j)

Ar(j) = Ar(j + 1)

Ar(j + 1) = T

End If

Next j

Next i

Print

Print “排序后的结果是：”

For i = 0 To N

Print Ar(i); ”    “;

Next i

End Sub

冒泡排序法原理:

Access软件网QQ交流群(群号:39785885)

Access源码网店