为什么用QTP写一个随机数输出的值都是一样的?

lcy619296485 · 发表于 2013-7-4 21:04:29

代码如下：
Option Explicit
Dim a,i
a=int(rnd*10)+1
For i=1 to 10
msgbox a
Next

maplee · 发表于 2013-7-5 09:24:17

你得把 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:06

按你的思路，你是先生成一个随机数，再进行循环输出产生的这一个随机数十次，也就是十个一样的数。而你要产生十个不一样的随机数，你就得放循环里呀，每循环一次，就会生成一个随机数，这样十次循环完是产生了十个不一样的随机数。

lcy619296485 · 发表于 2013-7-6 10:50:23

解决了

shandongdong · 发表于 2013-7-8 11:21:42

如果需要实现随机数排列用 VBS 怎么实现呢

黑羽祭 · 发表于 2013-7-9 09:00:13

回复 1# lcy619296485

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

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] 为什么用QTP写一个随机数输出的值都是一样的?