排序
2016-04-01 16:04
197 查看
Private Sub Command1_Click()
Cls
Font.Size = 30
Dim n 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
Cls
Font.Size = 30
Dim n 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
相关文章推荐
- poj1458 求最长公共子序列 经典DP
- tomcat安全配置
- java多线程的同步和死锁
- Java —— Hibernate4 No Session found for current thread
- java设计模式之创建型模式-工厂方法模式
- Android 之ActivityThead、ActivityManagerService 与activity的管理和创建
- C++访问限定符
- pig语法学习 FOREACH GENERATE group AS
- 大O符号与时间复杂度
- winpython安装与使用
- 导出数据到Excel --使用ExcelReport有感
- js中对字符串的操作
- ARM exception
- 【转载】循环结构中break、continue、return和exit的区别
- Activity的启动流程
- js循环绑定事件解决方案
- ArcGIS 帮助(10.2、10.2.1 和 10.2.2)收集
- 社会化分享 使用as
- Tcpdump抓包工具
- 老男孩linux决心书