选择法排序
来源:互联网 发布:java医疗管理系统 编辑:程序博客网 时间:2024/05/22 00:11
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 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
15电气臧洪颖
0 0
- 常用排序-选择法排序
- 常见排序-选择法排序
- 排序算法--选择排序法
- 按选择排序法排序。
- 排序模板 选择法排序
- 排序算法--选择排序法
- 排序之选择排序法
- 选择排序法法
- 排序:选择法
- 选择排序法
- 选择法排序
- 选择排序法
- 选择排序法证明
- 选择排序法
- 选择排序法
- 选择排序法
- 选择排序法
- C++ 选择排序法
- ASP.NET的三层架构(DAL,BLL,UI)
- 修改Android 自带输入法(LatinIME)空格键的显示
- UIGestureRecognizer与button冲突的处理
- 4-1 单链表逆转 (20分)
- JS框架——MVVM模式的Knockout.js
- 选择法排序
- tomcat服务器的搭建及介绍
- 为什么之前的作业没有写
- 百度地图的JS开发API应用
- Java MVC框架性能比较
- 使用剪切板的进程间通信
- Oracle中四种循环(GOTO、For、While、Loop)
- ubuntu 安装samba服务器
- NOI2016 十连测 第二场 深邃