n个随机数得排列
2016-04-14 16:27
183 查看
Option Base 1
Private Sub Command1_Click()
Cls
Font.size = 30
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim sierdun() As Integer
ReDim sierdun(size) As Integer
n = LBound(sierdun)
While n <= UBound(sierdun)
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = LBound(sierdun)
While m <= UBound(sierdun) - 1
n = LBound(sierdun)
While n <= UBound(sierdun) - 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 = LBound(sierdun)
While n <= UBound(sierdun)
Print sierdun(n)
n = n + 1
Wend
End Sub
Private Sub Command1_Click()
Cls
Font.size = 30
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim sierdun() As Integer
ReDim sierdun(size) As Integer
n = LBound(sierdun)
While n <= UBound(sierdun)
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = LBound(sierdun)
While m <= UBound(sierdun) - 1
n = LBound(sierdun)
While n <= UBound(sierdun) - 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 = LBound(sierdun)
While n <= UBound(sierdun)
Print sierdun(n)
n = n + 1
Wend
End Sub
相关文章推荐
- 大叔讲框架《跟谁学》点播课程列表
- 唯一id UUID
- 一致性的3种协议,并发,事务
- 一加一加到无穷
- ionic2学习文档
- Java接口
- Android项目使用Dagger2进行依赖注入
- 解决 SOAP-ERROR: Parsing WSDL: Couldn't load from 问题
- 【Java】Socket入门 [一]
- CQOI2016 day2 模拟赛总结
- html5摇一摇功能的实现
- 【转】Android listview与adapter用法
- 第四章 Linux环境
- HDU 1114 动态规划
- C# DataTable添加行和列
- 自定义gradle的property
- Python优秀函数库集锦(二)
- 循环
- 剪裁图片大小的代码
- ssh框架中调用mysql存储过程的方式