排序
来源:互联网 发布:游戏编程精粹 编辑:程序博客网 时间:2024/05/24 02:29
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim sierdun(5) As Integer
n = 1
While n <= 5
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim t As Integer, m As Integer
m = 1
While m <= 4
n = 1
While n <= 5 - m
If sierdun(n) < sierdun(n + 1) Then
t = sierdun(n): sierdun(n) = sierdun(n + 1): sierdun(n + 1) = t
End If
n = n + 1
Wend
m = m + 1
Wend
n = 1
While n <= 5
Print sierdun(n)
n = n + 1
Wend
End Sub
Cls
Dim n As Integer
Dim sierdun(5) As Integer
n = 1
While n <= 5
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim t As Integer, m As Integer
m = 1
While m <= 4
n = 1
While n <= 5 - m
If sierdun(n) < sierdun(n + 1) Then
t = sierdun(n): sierdun(n) = sierdun(n + 1): sierdun(n + 1) = t
End If
n = n + 1
Wend
m = m + 1
Wend
n = 1
While n <= 5
Print sierdun(n)
n = n + 1
Wend
End Sub
0 0
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- 排序
- struts中国际化之读取资源文件
- 菜鸟成长记-QQ聊天输入框随键盘弹起、UITableView加强
- RunLoop应用篇--线程间通信
- Unity后期处理-抗锯齿
- CentOS(Linux)中解决MySQL中文乱码
- 排序
- Ruby On Rails--Action Controller(控制器)
- 文章标题
- 如何在C++代码中访问并调用Java的成员呢?
- LIVE555,RTSP、RTP/RTCP协议介绍
- MFC对话框控件数据提取之DoDataExchange()
- 9个循环9
- oracle awr报告
- SecureCRT防止自动断开