随机生成10个随机数并排序
2012-05-16 15:46
288 查看
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Form_Load
End Sub
Private Sub Form_Load()
Dim p As String 'p用来显示随机生成的10个随机数
Randomize
p = ""
For i = 1 To 10 '生成10个随机数
Do
x = Int(Rnd * 90) + 10 '存放中间生成的一个随机整数,范围是10到99之间
yes = 0 '用来判断生成的x要还是不要,0表示要,1表示不要
For j = 1 To i - 1 '对你生成的第一个随机整数进行检测,检测结果存放Yes中
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
p = p & Str(a(i)) & ","
Next
Label1.Caption = LTrim(Left(p, Len(p) - 1)) '用Label显示最后结果
Label2.Caption = ""
End Sub
Private Sub Command1_Click()
Form_Load
End Sub
Private Sub Form_Load()
Dim p As String 'p用来显示随机生成的10个随机数
Randomize
p = ""
For i = 1 To 10 '生成10个随机数
Do
x = Int(Rnd * 90) + 10 '存放中间生成的一个随机整数,范围是10到99之间
yes = 0 '用来判断生成的x要还是不要,0表示要,1表示不要
For j = 1 To i - 1 '对你生成的第一个随机整数进行检测,检测结果存放Yes中
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
p = p & Str(a(i)) & ","
Next
Label1.Caption = LTrim(Left(p, Len(p) - 1)) '用Label显示最后结果
Label2.Caption = ""
End Sub
相关文章推荐
- 用rand函数生成10个元素的随机数数组;对该数组按从大到小排序;输出该数组;续接下面......
- //写一个生成10个100以内随机数数据,再进行冒泡排序,顺序,//二分查找法找到一个值得位置,如果没有则为-1,有则返回数组位置
- 快速排序 & 随机数的生成方法 & 随机快排
- VB随机生成10个数并排序
- C#随机生成规定个不重复的随机数,并排序
- Android:生成随机数,生成10个随机数,存入sdcard中的随机生成文件中
- 第一周第四天([大小写变换问题][判断是否为email][求对角线的值] [生成数组][数字中添加逗号][生成10个两位随机数,然后再进行排序] [复制数组||将指定数组的指定范围复制到新的数组])
- java经典算法_025对随机生成的100以内的10个数进行排序
- 随机生成10个100以内的整数,把数据从小到大排序,而且算法复杂度只能是1(利用数组的索引也可...
- 随机生成10个1--20之间的随机数,要求不能重复。(for循环解题)
- 冒泡排序(随机生成10个数排序)
- 随机数生成方法及序列随机排序
- js随机点名 方式 和 js生成随机数 案例
- 随机生成100万个数,排序后保存在文件中
- 生成RNGCryptoServiceProvider随机数和随机gb2312一级中文(根据网上的修改)
- sqlserver数据库中随机生成N位的随机数
- STL系列十一 随机三趣题——随机重排,文件中随机取一行,生成N个随机数。
- 接口测试入门(4)--接口自动化测试框架 / list和map用法 / 随机选取新闻 (随机数生成) / 接口相关id映射
- 生成随机文件名:当前年月日时分秒+五位随机数
- java 随机数 优惠码 生成 随机字串