从字符串数组中随机取N个字符串，每次取不同字符串的实现方法

最近QTP项目实际测试中，会遇到随机取值的问题。于是总结了一下。

Dim arrayk,arr(7),k
arrayk=array("k1","k2","k3","k4","k5","k6","k7","k8")
rndnum=RandomNumber(1,8)
msgbox rndnum

For i=1 to rndnum
 x=RandomNumber(0,7)  
 If i=1 Then
     arr(0)=x
 else  
  For j=0 to i-2   
     If arr(j)=x Then
        x=RandomNumber(0,7)
        j=-1
     End If   
  Next
  arr(j)=x
 End If
 k=arrayk(x)
 msgbox k
Next