最后十五个数的排序
来源:互联网 发布:龙回头指标公式源码 编辑:程序博客网 时间:2024/05/03 06:21
Private SubCommand1_Click()
Cls
Font.Size = 30
Dim a As Integer
Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = 1
While m < 14
n = 1
While n <= 15 - m
If sierdun(n) < sierdun(n+1) Then
swap = sierdun(n)
sierdun(n) = sierdun(n + 1)
sierdun(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
n = 1
While n <= 15
Print sierdun(n)
n = n + 1
Wend
End Sub
0 0
- 最后十五个数的排序
- 十五个数的排序
- 十五个数的第二种排序方法
- 十五个数随机排序
- 给十五个数排序
- 十五个数的顺序排列
- poj1401 阶乘最后的零的个数
- n!最后连续0的个数
- 统计阶层最后0的个数
- 15个数的排序
- n个数的排序
- n个数的排序
- n 个数的排序
- n个数的排序
- n个数的排序
- 摆出十五个数
- 冒泡排序100个数的
- |3441|n个数的排序
- A和B比大小
- 15电气1吕四旺
- 十个数按大小排列
- 用mapreduce程序将hive写数据到hbase慢的解决办法
- hadood2.6.0启动datanode报错
- 最后十五个数的排序
- iOS开发之linker command failed with exit code 1 (use -v to see invocation)
- 这个bug很简单-log4j:ERROR Attempted to append to closed appender named
- RStudio 清除历史记录,变量,窗口
- 15电气吕四旺
- lucene5.5创建索引和检索
- Mosquitto pub/sub服务实现代码浅析-主体框架
- 两小时搞定matlab基础编程学习
- Javascript 构造函数、继承