排序
来源:互联网 发布:淘宝网充话费怎么查询 编辑:程序博客网 时间:2024/05/24 02:09
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
1 0
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 第一行代码 读笔② (Activity Intent)
- Java基础学习第二十六天——网络编程总结
- codeforce 118D Caesar's Legions
- 【学习笔记】——ubuntu gcc安装完成后的配置
- Day6-4.5
- 排序
- Android startActivityForResult的使用
- Linux Kernel 与Coverity的缘分-美人如玉剑如虹
- 第五周作业 长方形
- 主席树
- java 数字字符转换成数字
- 仿FLASH的图片轮换播放器
- Git学习笔记(二)
- 在Ubuntu上下载、编译、运行Android内核Linux Kernel