随机生成10个整数
2012-06-02 14:07
295 查看
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Form_Load
End Sub
Private Sub Form_Load()
Dimp As String 'p用来显示随机生成的10个数
Randomize
p = ""
Fori = 1 To 10 '生成10个随机整数
Do
x =Int(Rnd * 90) + 10 '存放中间生成的一个随机整数,范围是10到99之间的整数
yes= 0 '用来判断生成的x要还是不要,0表示要,1表示不要
Forj = 1 To i - 1 '对你生成的第一个随机整数进行检测,检测结果存放Yes中
Ifx = 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显示最后结果
End Sub
Private Sub Command1_Click()
Form_Load
End Sub
Private Sub Form_Load()
Dimp As String 'p用来显示随机生成的10个数
Randomize
p = ""
Fori = 1 To 10 '生成10个随机整数
Do
x =Int(Rnd * 90) + 10 '存放中间生成的一个随机整数,范围是10到99之间的整数
yes= 0 '用来判断生成的x要还是不要,0表示要,1表示不要
Forj = 1 To i - 1 '对你生成的第一个随机整数进行检测,检测结果存放Yes中
Ifx = 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显示最后结果
End Sub
相关文章推荐
- 随机生成10个整数
- c#部分---网吧充值系统;简易的闹钟;出租车计费;简单计算器;对战游戏;等额本金法计算贷款还款利息等;随机生成10个不重复的50以内的整数;推箱子;
- 随机生成10个100以内的整数,把数据从小到大排序,而且算法复杂度只能是1(利用数组的索引也可...
- 随机生成10个不重复的整数
- java随机生成10个整数,打印出其最大值、最小值、平均值。
- 随机生成10个不重复的整数
- 从1到20间随机生成6个互不相同的整数。
- c++生成不重复的随机整数
- 随机产生10个2位正整数 然后排序
- 给定能随机生成整数1到5的函数,写出能随机生成整数1到7的函数
- 随机生成10个不重复的0-100的数字(实例讲解)
- 201111621401-白乐乐-随机生成一个n bit位的长整数
- 随机生成一个n bit位的长整数
- 给一个生成0-a的随机整数的函数,如何生成0-b的随机整数? (a,b都是正整数且之间没有关系)
- MySQL生成随机整数
- matlab之生成不重复的随机整数
- 编程珠玑: 13章 搜索 13.1生成[0 ,maxval]范围内m各随机整数的有序序列 -------解题总结
- 生成范围在[a,b]之中的随机整数
- 生成10个随机文件
- 编写程序,生成一个包含20个随机整数的列表,然后对其中偶数下标的元素进行降序排列,基数下标的元素不变