三种排序方法

迷南。 2022-03-19 08:38 191阅读 0赞

今天想给大家分享三种排序方法：选择排序，直接排序，还有冒泡排序，对于这些排序方法，我的感觉是有些模糊，也对比了一下，不是很懂直接排序法，如果有懂得，给我讲一下。这几个方法主要是排序，有的不重复，有的重复。

方法一：选择排序法

Option Explicit

Option Base 1

Private Sub cmdsort\_Click()

Dim a(10) As Integer, temp As Integer

Dim i As Integer, j As Integer

Randomize

For i = 1 To 10

a(i) = Int(Rnd \* 100 + 1)

Text1 = Text1 & Str(a(i))

Next i

For i = 1 To 10

For j = i + 1 To 10

If a(i) < a(j) Then

temp = a(i)

a(i) = a(j)

a(j) = temp

End If

Next j

Print a(i)

Next i

End Sub

![三种排序方法 - 王丹 十期提高班  - 王丹 廊坊师范学院信息技术提高班 第十期][- _ _ - _ _]

方法二：直接排序法

Option Explicit

Option Base 1

Private Sub cmdsort\_Click()

Dim a(10) As Integer, temp As Integer

Dim i As Integer, j As Integer

Randomize

For i = 1 To 10

a(i) = Int(Rnd \* 100 + 1)

Text1 = Text1 & Str(a(i))

Next i

For i = 1 To 10

For j = i + 1 To 10

If a(i) < a(j) Then

temp = a(i)

a(i) = a(j)

a(j) = temp

End If

Next j

Print a(i)

Next i

end    sub

![三种排序方法 - 王丹 十期提高班  - 王丹 廊坊师范学院信息技术提高班 第十期][- _ _ - _ _ 1]

方法三：冒泡排序法

Option Explicit

Option Base 1

Dim a(10) As Integer, temp As Integer, i As Integer, j As Integer, p As String, flag

Private Sub Command1\_Click()

'排序

For i = 1 To 9

For j = 1 To 10 - i

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

temp = a(j): a(j) = a(j + 1): a(j + 1) = temp

End If

Next j

Next i

For i = 1 To 10

Print a(i)

Next i

End Sub

Private Sub Command2\_Click()

Randomize

p = ""

For i = 1 To 10

a(i) = Int(Rnd \* 100 + 1)

flag = 0

For j = 1 To i - 1

If a(i) = a(j) Then

flag = 1

i = i - 1

Exit For

End If

Next j

If flag = 0 Then

Print a(i)

End If

Next i

End Sub

![三种排序方法 - 王丹 十期提高班  - 王丹 廊坊师范学院信息技术提高班 第十期][- _ _ - _ _ 2]

[- _ _ - _ _]: http://img5.ph.126.net/W0r4CtDpgS-YKS9dHbRRdg==/6597976863750116855.jpg
[- _ _ - _ _ 1]: http://img3.ph.126.net/J67mjm4wNXGUGyxGh2QlvA==/6598205562168477683.jpg
[- _ _ - _ _ 2]: http://img2.ph.126.net/H1CPzdwN0GJdAnGzKVVaOw==/6597630517587360242.jpg