冒泡排序
来源:互联网 发布:读取身份证照片软件 编辑:程序博客网 时间:2024/05/21 14:41
Me.Font.Size = 6
Dim a(10) As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
Print
For i = 2 To 10
If a(1) < a(i) Then
swap a(1), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 3 To 10
If a(2) < a(i) Then
swap a(2), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 4 To 10
If a(3) < a(i) Then
swap a(3), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 5 To 10
If a(4) < a(i) Then
swap a(4), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 6 To 10
If a(5) < a(i) Then
swap a(5), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 7 To 10
If a(6) < a(i) Then
swap a(6), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 8 To 10
If a(7) < a(i) Then
swap a(7), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 9 To 10
If a(8) < a(i) Then
swap a(8), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t
Dim a(10) As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
For i = 2 To 10
If a(1) < a(i) Then
swap a(1), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 3 To 10
If a(2) < a(i) Then
swap a(2), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 4 To 10
If a(3) < a(i) Then
swap a(3), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 5 To 10
If a(4) < a(i) Then
swap a(4), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 6 To 10
If a(5) < a(i) Then
swap a(5), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 7 To 10
If a(6) < a(i) Then
swap a(6), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 8 To 10
If a(7) < a(i) Then
swap a(7), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 9 To 10
If a(8) < a(i) Then
swap a(8), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t
End Sub
2016 5 12
0 0
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 选择排序1到100
- HDU 2544 最短路(Dijkstra算法)
- Linux系统中postgresql双机热备(流复制)
- 用Android访问本地站点---(localhost,10.0.2.2)要区别
- Android学习--《数据的保存》
- 冒泡排序
- CY7C68013A Slave FIFO 相关的寄存器
- httpurlconnection_vegetables(httpurlconnection请求方式获取菜谱)
- vb25
- 防止CSRF攻击与protect_from_forgery
- 将PrefixHeader.pch添加到Xcode项目
- PCA
- iOS多线程的初步研究(八)-- dispatch队列
- 遍历std::tuple