冒泡排序法---vb
来源:互联网 发布:数据采集监控 编辑:程序博客网 时间:2024/06/08 06:29
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
- 冒泡排序法---vb
- 冒泡排序法(用vb实现)
- VB冒泡排序法详细教学
- vb冒泡排序函数
- VB 冒泡排序
- VB.Net 冒泡排序
- [VB.NET源码]33_冒泡排序法
- 15 电气 齐振昊 VB中使用冒泡法排序
- 从VB来看-BubbleSort(VB冒泡排序)
- 【排序】冒泡排序法
- 常用排序-冒泡法排序
- 排序法之冒泡排序
- php排序&冒泡法排序
- 排序之冒泡排序法
- 排序算法--冒泡排序法
- 【PHP】冒泡排序法排序
- 排序算法--冒泡排序法
- 冒泡法排序
- vb中的十六进制
- java jar服务部署脚本编写
- CSV模块使用时的几个问题及解决方法
- c/c++原子操作 接口函数 自查文档
- idea编辑器注册方法
- 冒泡排序法---vb
- 添加shell命令别名
- Run Loop是什么,使用的目的,何时使用和关注点
- angularJs初学遇到的坑之directive
- jQuery入门(1) 加载事件
- tomact web.xml配置参考
- SQL学习笔记2——用代码创建、删除表
- 欢迎使用CSDN-markdown编辑器
- python爬虫抓手机号+java客户端小程序