随机生成十个不同的数
2012-05-19 12:41
281 查看
Private Sub Command1_Click()
Form_Load
End Sub
Private Sub Form_Load()
Dim a(1 To 10) As Integer
Randomize
p= "" 'p用来显示随机生成的10个整数
For i = 1 To 10
Do
X = Int(Rnd * 90) + 10 '存放中间生成一个随机整数
yes = 0 '用来判断生成的数要还是不要,0表示要,1表示不要
For j = 1 To i - 1 '对生成的第一个随机整数进行检测
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))
End Sub
Form_Load
End Sub
Private Sub Form_Load()
Dim a(1 To 10) As Integer
Randomize
p= "" 'p用来显示随机生成的10个整数
For i = 1 To 10
Do
X = Int(Rnd * 90) + 10 '存放中间生成一个随机整数
yes = 0 '用来判断生成的数要还是不要,0表示要,1表示不要
For j = 1 To i - 1 '对生成的第一个随机整数进行检测
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))
End Sub
相关文章推荐
- 随机生成十个不同的数
- 随机生成十个不同的数
- 随机生成十个不同的数
- 利用随机类生成数组,并用冒泡排序以及选择排序对不同数组的元素进行从小到大的排序
- 生成十个完全不同的随机数并排序
- 随机生成十个不重复的整数
- flash中随机产生20-100之间10个不同的数字,然后不能重复地随机取出这十个数字
- 【转载】随机生成k个范围为1-n的随机数,其中有多少个不同的随机数?
- 随机生成不同的图形
- Android数字游戏之数独(自动随机生成不同难度的数独)
- 自我补充篇之java随机验证码的生成(字母不同色,干扰线无规律颜色也不同)
- 生成大量随机字符串不同实现方式的效率对比
- 54张牌随机生成3张不同的牌的算法
- 随机生成不同的图形
- js随机生成不同颜色块随机移动
- 用Math.random()方法随机生成十个学生的成绩,计算这十个学生的平均成绩
- 试验十:随机生成10个不同的数
- 随机生成0~9十个数字,十个数字不重复(包含升序,降序)
- 自写随机生成十个随机数,使他们总和为100的小程序
- 随机生成0~9十个数字,十个数字不重复(包含升序,降序)