冒泡法排序
来源:互联网 发布:广告平面设计的软件 编辑:程序博客网 时间:2024/05/16 19:27
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 1000)
Print a(i);
Next i
Print
For i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then
swap a(j), a(j + 1)
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
- 【排序】冒泡排序法
- 常用排序-冒泡法排序
- 排序法之冒泡排序
- php排序&冒泡法排序
- 排序之冒泡排序法
- 排序算法--冒泡排序法
- 【PHP】冒泡排序法排序
- 排序算法--冒泡排序法
- 冒泡法排序
- 排序:冒泡法
- 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡排序法
- java 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡法排序
- Linux下64 位 预编译 的 go 1.6.2 安装
- 数据结构—图的存储—邻接表和邻接矩阵
- ffmpegturtor06.c做了修改,使用sdl2.0
- 用委托来实现IEqualityComparer<T>接口
- android- View工作原理(二)导致View重建原因
- 冒泡法排序
- 面试中常见链表问题7:反转链表2
- gradle 实现安装apk 启动apk的方法
- UML建模详解(1)—初识UML建模
- ubuntu下搭建Python开发环境(eclipse+pydev)
- hihocoder #1114 : 小Hi小Ho的惊天大作战:扫雷·一
- Android如何只显示一次启动页
- 自定义多进度环形进度条
- Java在已经存在的项目上创建WebService步骤