n个随机数的排列
来源:互联网 发布:软件售前方案 编辑:程序博客网 时间:2024/05/21 19:28
Option Base 1
Private Sub Command1_Click()
ClsFont.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
0 0
- n个随机数的排列
- n个随机数的排列
- n个随机数排列
- n个随机数排列
- n个随机数得排列
- n个数据的排列
- n个不重复的随机数
- 生成互不相同的N个随机数
- 取N个不重复的随机数
- 生成n以内的m个随机数
- 生成N个不重复的随机数
- 生成N个不相等的随机数
- 生成N个不重复的随机数
- 产生n个不重复的随机数
- 产生m个n以内的随机数
- n个不重复的随机数
- n个元素的全排列算法
- n个字符的全排列
- 用来跟踪保存数据库更改的gem包paper_trail
- Xamarin.iOS - Handing Keyboard
- iOS陆哥开发笔记(九) (SDWebImage简单使用)
- 9个循环6
- java map .put 方法
- n个随机数的排列
- 关于Navicat的动态生成SQL语句
- 80端口一直被占用,导致resin或者tomcat运行不了
- C# get
- Longest Consecutive Sequence
- 不需要继承实现模板模式
- 十的阶乘
- 个位数(一位数)相乘
- android js 互调