高级排序
来源:互联网 发布:python .dot 编辑:程序博客网 时间:2024/04/23 18:43
Option Base 1
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
0 0
- 高级排序
- 高级排序
- 高级排序
- 排序高级
- 高级排序
- 高级排序
- 高级排序--希尔排序
- 高级排序-希尔排序
- 高级排序算法--希尔排序
- 高级排序算法--快速排序
- 高级排序之快速排序
- 高级排序之希尔排序
- 高级排序之堆排序
- 高级排序--快序排序
- ios 数组排序-高级排序
- java高级排序汇总
- 高级排序算法
- python翻译[排序高级]
- java string byte之间的转换
- 选择法
- 随机产生一百个数并排序
- my information
- Android应用如何监听自己是否被卸载及卸载反馈功能的实现(第三版)
- 高级排序
- spring boot 下 500 404 错误页面处理
- 完整详解GCD系列(四)dispatch_semaphore(信号量)
- 顺序队列C/C++实现
- android.support.v4.view.NestedScrollingChild cannot be resolved
- android点滴之HandlerThread的用法
- 选择排序法
- Spring依赖注入:注解注入总结
- declare-styleable:自定义控件的属性