给15个数排序(2)
来源:互联网 发布:淘宝号码购买 编辑:程序博客网 时间:2024/06/05 04:30
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim s(15) As Integer
n = 1
While n <= 15
s(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim t As Integer
m = 1
While m <= 14
n = 1
While n <= 15 - m
If s(n) < s(n + 1) Then
t = s(n)
s(n) = s(n + 1)
s(n + 1) = t
End If
n = n + 1
Wend
m = m + 1
Wend
n = 1
While n <= 15
Print s(n)
n = n + 1
Wend
End Sub
1 0
- 给15个数排序(2)
- 给15个数排序
- 给十五个数排序
- 15个数排序(2)
- 15个数排序(1)
- 给4个数从小到大的排序
- 给object数组进行排序(排序条件是每个元素对象的属性个数)
- 15个数排序
- 15个数排序
- 15个数排序
- 15个数排序
- 15个数排序!
- 15个数排序
- 15个数的排序
- 15个数排序
- 15个数排序
- 排序啦!(15个数从大到小排序)
- 对15个数进行排序
- JSPatch之—动态新增 Property
- 用 Redis 实现分布式锁与实现任务队列
- 【长篇高能】ReactiveCocoa 和 MVVM 入门
- 张老师:java读写锁
- VVVVVB
- 给15个数排序(2)
- 15电气郄慧敏最小的数排在最后
- R语言学习笔记 - 创建数据集
- 减少2D碰撞体的顶点数量——PolygonCollider2D
- 【FastDFS专题】fastdfs使用实战(概念篇)
- phalcon 之 flash组件
- 仿写BaseAdapter而想到的观察者模式-----思考
- iOS每日一记之——————————契丹的cocopods
- 如何用U盘安装CentOS7系统?U盘安装Centos