51Testing软件测试论坛

标题: 为什么用QTP写一个随机数输出的值都是一样的? [打印本页]

作者: lcy619296485 时间: 2013-7-4 21:04
标题: 为什么用QTP写一个随机数输出的值都是一样的?
代码如下：
Option Explicit
Dim a,i
a=int(rnd*10)+1
For i=1 to 10
msgbox a
Next

作者: maplee 时间: 2013-7-5 09:24
你得把 a=int(rnd*10)+1 这句放进for循环里啊，
for循环里没有，当然只循环第一次赋予变量a的随机值了，
如下：

Option Explicit
Dim a,i

For i=1 to 10
a=int(rnd*10)+1
msgbox a
Next

作者: Aimelyccc 时间: 2013-7-5 10:16
按你的思路，你是先生成一个随机数，再进行循环输出产生的这一个随机数十次，也就是十个一样的数。而你要产生十个不一样的随机数，你就得放循环里呀，每循环一次，就会生成一个随机数，这样十次循环完是产生了十个不一样的随机数。

作者: lcy619296485 时间: 2013-7-6 10:50

解决了

作者: shandongdong 时间: 2013-7-8 11:21
如果需要实现随机数排列用 VBS 怎么实现呢

作者: 黑羽祭 时间: 2013-7-9 09:00
回复 1# lcy619296485

关于随机数： http://www.cydtest.com/?p=218

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)