选择法排序
来源:互联网 发布:医学数据分析重要吗? 编辑:程序博客网 时间:2024/06/05 08:10
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
0 0
- 常用排序-选择法排序
- 常见排序-选择法排序
- 排序算法--选择排序法
- 按选择排序法排序。
- 排序模板 选择法排序
- 排序算法--选择排序法
- 排序之选择排序法
- 选择排序法法
- 排序:选择法
- 选择排序法
- 选择法排序
- 选择排序法
- 选择排序法证明
- 选择排序法
- 选择排序法
- 选择排序法
- 选择排序法
- C++ 选择排序法
- 1003 Problem C
- 消息机制
- ssl1606 选课
- 选择法排序
- HDU-3605-Escape(最大流+状压)
- 选择法排序
- Hibernate基本原理
- (android:windowIsTranslucent)影响(android:windowAnimationStyle)Activity切换动画无效
- 详解应对平台高并发的分布式调度框架TBSchedule
- 【转】23种设计模式的通俗理解
- 控制父控件不可拦截子控件事件
- python 类实例方法,类方法和类静态方法的区别
- 适配器模式 Adapter Pattern
- [Java视频笔记]day23