排序
来源:互联网 发布:淘宝网买的药是真的吗 编辑:程序博客网 时间:2024/06/07 01:45
Private Sub Command1_Click()
Dim n As IntegerDim 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
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 详解Https是如何确保安全的?
- NSArray与NSMutableArray的基本使用
- IPC基础小记
- jQuery文件上传插件ajaxFileUpload ---谷营中西软件科技园
- 1013 & 1014
- 排序
- Android测试之旅之JUnit(一)
- Android Studio
- linux解决SQL中文乱码
- xmodmap使用指南
- leetcode——88——Merge Sorted Array
- 方法重载
- 我是一个线程
- Java实现根据ou名次查询该ou下的所有用户,或者按照名称模糊查询