随机个数排序
来源:互联网 发布:网络多线网速会谩骂吗 编辑:程序博客网 时间:2024/04/28 08:42
老师讲完了,拍到手机上了,照着抄还是错误不断
大哥,你丫是干啥吃的啊,我也是醉了!!!
Option Base 1
Private Sub Command1_Click()
Cls
Dim x As Integer
x = Int(Val(Me.Text1.Text))
Dim n As Integer
Dim A() As Integer
ReDim A(x)
n = LBound(A)
While n <= UBound(A)
A(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim B As Integer, M As Integer
M = LBound(A)
While M <= UBound(A) - 1
n = LBound(A)
While n <= UBound(A) - M
If A(n) < A(n + 1) Then
B = A(n): A(n) = A(n + 1): A(n + 1) = B
End If
n = n + 1
Wend
M = M + 1
Wend
n = LBound(A)
While n <= UBound(A)
Print A(n)
n = n + 1
Wend
End Sub
0 0
- 十五个数随机排序
- 随机个数排序
- 随机产生一百个数排序
- 对随机的10个数进行排序
- VB随机生成10个数并排序
- 随机生成100个数并排序
- 随机生成1000个数并排序
- 随机产生一百个数并排序
- 冒泡排序(随机生成10个数排序)
- 快速排序-随机选择,寻找最小的第K个数
- 随机生成N个数,并从大到小排序。。。。。。。
- 随机比较10个数大小(从小到大)选择排序法
- 电气2班徐立立(随机产生100个数并排序)
- 随机生成10个数
- 随机生成10个数
- 随机生成10个数
- 随机生成10个数
- 随机生成n个数
- Myeclipse tomcat debug(调试模式)启动过慢的问题
- Spring 框架的设计理念与设计模式分析
- xib里 scrollView的 适配
- View控件--ViewSwitcher
- 极验高并发验证服务背后的技术实现
- 随机个数排序
- CentOS6.6安装cobbler
- linux网络流量监控工具
- python依赖包numpy、scipy、scikit-learn运行冲突解决方案
- 主元素问题
- Android静默安装实现方案,仿360手机助手秒装和智能安装功能
- Gson 将list封装成json
- 记录一下GLFW的2D贴图
- 5周学习杂谈(数学基础)