比较大小(冒泡法)
来源:互联网 发布:选股软件 编辑:程序博客网 时间:2024/06/07 20:57
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
0 0
- 比较大小(冒泡法)
- 比较数的大小(冒泡法)
- 比较数的大小(冒泡法)
- 冒泡法比较数大小
- 数组比较大小冒泡法(由小到大)
- 比较数的大小(冒泡法)
- 数组冒泡法(由大到小输出 比较数的大小)
- 用冒泡法对四个数比较大小
- C 语言 利用冒泡排序法比较大小
- // 冒泡排序法 (比较,交换)
- 冒泡排序和3个数比较大小思想
- 比较数的大小(选择法)
- 比较大小(比较法)
- 输入数值用冒泡法排列大小
- 取消事件冒泡(大小DIV)
- 指针(大小比较)等
- 比较两个字符串的大小(指针法)
- 随机比较10个数大小(从小到大)选择排序法
- Spring jdbcTemplate之决不回滚解决方案
- 对NSString进行URL编码转换
- [XML]学习笔记(七)XPath&XQuery
- 最快速的方法计算出下面这个圆形是否和正方形相交
- Java基础之编码详解(1)
- 比较大小(冒泡法)
- HierarchyView使用的注意事项
- python里面的循环语句
- ssl1565 将功补过
- 随机十个数的排序,选择法排序
- android studio gradle打包
- [ULK08]内核内存管理
- malloc/free与new/delete的区别
- 关于android 系统sdk自带的解压包zip的坑