小小冒泡法
来源:互联网 发布:先锋网络电视免费版 编辑:程序博客网 时间:2024/06/06 05:40
Private Sub Command1_Click()
Me.Font.Size = 20
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = Int(Rnd() * 100)
Print a(i);
Next i
Print
Dim max As Integer
For i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then
swap a(j + 1), a(j) / 交换
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
Print
End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t
End Sub
0 0
- 小小冒泡法
- 选择排序,冒泡排序,插入排序的小小记录
- 小小
- 三种小小的排序之 插入排序,选择排序,冒泡排序
- 冒泡法
- 冒泡法
- 冒泡法
- 冒泡法
- 冒泡法
- 冒泡法
- 冒泡法
- 冒泡法
- 冒泡法
- 【冒泡法】
- 冒泡法
- 冒泡法
- 冒泡法
- 冒泡法
- MySQL 开启FEDERATED 引擎
- u3d shader入门写法
- haskell之Functor、Applicative、Monad
- 自定义多行多列的RadioGroup
- 经典算法心得
- 小小冒泡法
- Handler,Looper,Message,MessageQueue,HandlerThread使用总结(上)
- 5.12
- Excel技巧
- 顺序表应用1:多余元素删除之移位算法
- css3实现隔行换色
- eclipse背景色及字体色等的设置方法和样例
- meta name="viewport" content="width=device-width,initial-scale=1.0" 解释
- send,recv,sendto,recvfrom