电气一班 宋家欢 高级排序
2016-03-31 17:43
148 查看
高级排序
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim wzs() As Integer
ReDim wzs(size)
n = LBound(wzs)
While n <= UBound(wzs)
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = LBound(wzs)
While m <= UBound(wzs) - 1
n = LBound(wzs)
While n <= UBound(wzs) - m
If wzs(n) < wzs(n + 1) Then
swap = wzs(n)
wzs(n) = wzs(n + 1)
wzs(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
n = LBound(wzs)
While n <= UBound(wzs)
Print wzs(n)
n = n + 1
Wend
End Sub
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim wzs() As Integer
ReDim wzs(size)
n = LBound(wzs)
While n <= UBound(wzs)
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = LBound(wzs)
While m <= UBound(wzs) - 1
n = LBound(wzs)
While n <= UBound(wzs) - m
If wzs(n) < wzs(n + 1) Then
swap = wzs(n)
wzs(n) = wzs(n + 1)
wzs(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
n = LBound(wzs)
While n <= UBound(wzs)
Print wzs(n)
n = n + 1
Wend
End Sub
相关文章推荐
- zoj 3657 策略题 easy
- sqlmap用户手册
- 15教育技术余晓红
- 欢迎使用CSDN-markdown编辑器
- 7个基于Linux命令行的文件下载和网站浏览工具
- Thread详解16:Timer
- 在小米手机上,修改APP的launcher应用图标不生效的解决方案
- Android中内容观察者的使用---- ContentObserver类详解
- 从零开始学_JavaScript_系列(五)——dojo(基础,动画移动,重力模拟,动画合并,添加标签)
- USB设备开发---- usb描述符概述
- zenfone5安卓5.0降级(3.24.40.87到3.24.40.80)教程(亲测成功)
- 排序
- 15电气1班麻天骄作业
- vb
- java并行调度框架封装及演示样例
- 7个基于Linux命令行的文件下载和网站浏览工具
- redis简单了解 二 (集群)
- hdu 1009 贪心算法
- Spring中Bean的配置:基于XML文件的方式
- TCP三次握手四次挥手