关于在QTP中随机选取下拉菜单的值)

   下面是测试的例子，随机选择月份的值.

 

注：

Randomize
x=RandomNumber (0,2)
备注：这边是随机生成0-2之间的三个数字中的一个。

 

___________________________________________________________________________________

Rnd 函数
返回一个随机数。
Rnd[(number)]
number 参数可以是任意有效的数值表达式。
说明
Rnd 函数返回一个小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式：

如果 number 为        Rnd 生成          
小于零        每次都相同的值，使用 number 作为种子。          
大于零        序列中的下一个随机数。          
等于零        最近生成的数。          
省略        序列中的下一个随机数。         
因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子，所以对于任何最初给定的种子都会生成相同的数列。
在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有基于系统计时器的种子。
要产生指定范围的随机整数，请使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里， upperbound 是此范围的上界，而 lowerbound 是此范围内的下界。
注意   要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列。

Randomize 语句
初始化随机数生成器。
语法
Randomize [number]
可选的 number 参数是 Variant 或任何有效的数值表达式。
说明
Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。
如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
Rnd 函数示例
本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。
本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。

Dim MyValue
Randomize   ' 对随机数生成器做初始化的动作。

MyValue = Int((6 * Rnd) + 1)   ' 生成 1 到 6 之间的随机数值。

 

___________________________________________________________________________________

也可以写成:

 

Dim s,x
s=Browser("*****").Page("个人信息").WebList("DropDownListMonth").GetROProperty ("items count")

 

Function Get_Ran(s)
   Randomize
  Get_Ran=RandomNumber (0,s)
End Function

 

Browser("*****").Page("个人信息").WebList("DropDownListMonth").Select"#"&Get_Ran(s)