常用排序算法之选择排序与冒泡排序
来源:互联网 发布:松岛菜菜子知乎 编辑:程序博客网 时间:2024/04/26 03:56
'选择,冒泡排序
Option Explicit
Dim Result, I
Dim TestData(100)
const N = 100
Randomize
For I = 0 To N - 1
TestData(I) = ROUND(RND() * 32768)
Next
'选择排序
Sub SSort(byRef Array, low, hi)
Dim t, i, j, pos
For i = hi To low + 1 Step -1
pos = i
For j = i - 1 To low Step -1
If Array(pos) < Array(j) Then
pos = j
End IF
Next
t = Array(i)
Array(i) = Array(pos)
Array(pos) = t
Next
End Sub
'冒泡排序
Sub BubbleSort(byRef Array, low, hi)
Dim t, i, j
For i = hi-1 To low Step -1
For j = low To i
If Array(j) > Array(j+1) Then
t = Array(j)
Array(j) = Array(j+1)
Array(j+1) = t
End IF
Next
Next
End Sub
BubbleSort TestData, 0, N - 1
For I = 0 To N - 1
Result = Result & TestData(I) & VbTab
Next
MsgBox(Result)
Option Explicit
Dim Result, I
Dim TestData(100)
const N = 100
Randomize
For I = 0 To N - 1
TestData(I) = ROUND(RND() * 32768)
Next
'选择排序
Sub SSort(byRef Array, low, hi)
Dim t, i, j, pos
For i = hi To low + 1 Step -1
pos = i
For j = i - 1 To low Step -1
If Array(pos) < Array(j) Then
pos = j
End IF
Next
t = Array(i)
Array(i) = Array(pos)
Array(pos) = t
Next
End Sub
'冒泡排序
Sub BubbleSort(byRef Array, low, hi)
Dim t, i, j
For i = hi-1 To low Step -1
For j = low To i
If Array(j) > Array(j+1) Then
t = Array(j)
Array(j) = Array(j+1)
Array(j+1) = t
End IF
Next
Next
End Sub
BubbleSort TestData, 0, N - 1
For I = 0 To N - 1
Result = Result & TestData(I) & VbTab
Next
MsgBox(Result)
- 常用排序算法之选择排序与冒泡排序
- Java常用排序算法冒泡排序与选择排序总结
- 常用排序算法1--冒泡排序,选择排序,插入排序
- 冒泡排序算法与选择排序算法
- 冒泡算法与选择排序
- 【基础算法】选择排序与冒泡排序
- 排序算法之“选择排序-冒泡排序-插入排序”
- 常用内部排序算法之四:简单选择排序、直接插入排序和冒泡排序
- 常用的排序算法:插入排序,希尔排序,冒泡排序,选择排序,快速排序,归并排序
- java之冒泡排序与选择排序
- 常用排序算法之冒泡排序
- 常用排序算法之冒泡排序
- Java常用排序算法之冒泡排序
- 常用排序算法之冒泡排序
- 常用排序算法之冒泡排序
- 常用排序算法之冒泡排序
- JAVA常用排序算法之冒泡排序
- 常用排序算法之冒泡排序
- Structs 框架发展历程
- 寓言中的经济学:分红争吵的根源
- Struts请求相应过程
- 收藏的网址
- 疯狂的程序员 2(转)
- 常用排序算法之选择排序与冒泡排序
- session 不过期
- 有用链接
- 盖茨巨额家产构建慈善帝国
- 近来一段时间的经典语录
- 考查嵌入式C开发人员的最好的0x10道题
- 固定的左侧移动导航菜单
- 常用排序算法之堆排序与快速排序
- 九九乘法表