选择法排序
来源:互联网 发布:人工智能可以思考吗 编辑:程序博客网 时间:2024/05/18 02:35
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
Print
Dim j As Integer
For j = 1 To 9
For i = j + 1 To 10
If a(j) < a(i) Then
swap a(j),a(i)
End If
Next i
Next j
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
- 常用排序-选择法排序
- 常见排序-选择法排序
- 排序算法--选择排序法
- 按选择排序法排序。
- 排序模板 选择法排序
- 排序算法--选择排序法
- 排序之选择排序法
- 选择排序法法
- 排序:选择法
- 选择排序法
- 选择法排序
- 选择排序法
- 选择排序法证明
- 选择排序法
- 选择排序法
- 选择排序法
- 选择排序法
- C++ 选择排序法
- 算法导论 01背包实现
- Elastic Search安装及使用
- Oracle 查看表空间的大小及使用情况sql语句
- 使用junit进行单元测试的注解的执行顺序。
- SpringMVC详细示例实战教程
- 选择法排序
- 用keytool创建Keystore和Trustsotre文件
- 信息
- IOS数据库操作SQLite3使用详解
- SQL注入(PreparedStatement)
- 应知道的数据库连接池DBCP配置及JDBC超时设置
- mongo中删除filed不存在的document
- 冒泡
- 如何把PDF文件内容转换成TXT