冒泡排序法
来源:互联网 发布:c语言中时间差怎么计算 编辑:程序博客网 时间:2024/06/06 19:23
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 10
a(i) = Int(Rnd * 100)
Print a(i);
Next i
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
End Sub
Private Sub swap(a As Integer, b AsInteger)
Dim t As Integer
t = a
a = b
b = t
End Sub
0 0
- 【排序】冒泡排序法
- 常用排序-冒泡法排序
- 排序法之冒泡排序
- php排序&冒泡法排序
- 排序之冒泡排序法
- 排序算法--冒泡排序法
- 【PHP】冒泡排序法排序
- 排序算法--冒泡排序法
- 冒泡法排序
- 排序:冒泡法
- 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡排序法
- java 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡法排序
- VBA——word中书签与VS的完美搭配
- 【BZOJ2152】聪聪可可【点分治】
- 16进制
- mysql调优
- 武sir第三讲(3)函数
- 冒泡排序法
- 选择排序法
- 16进制
- java集合运算:求交集,并集,集合差
- 冒泡排序
- 数据库设计之数据类型
- 选择法
- 图像处理大型科普——图像直方图
- 一个屌丝程序猿的人生(四)