QTP实现随机产生不重复的查询条件

   查询功能的测试，对于查询条件组合的实现，是通过随机产生查询条件个数n，并随机取得这n个条件，并且要求不能重复，对于这部分代码实现如下：

conArrayNum=array ("mem_info.HICN","mem_info.FIRST_NAME","mem_info.LAST_NAME","mem_info.MEMID","mem_info.CONTRACT_NUMBER","mem_info.ENROLLMENT_STATUS","MEM_CURRENT.PROV_GROUP_NUM","RT_PROVIDER.RX_ID","MV_SUSPECT.SUSPECT")'存放查询条件的数组
maxNum=9
rndNumber = RandomNumber(0, maxNum)'随机产生查询条件个数
msgbox(rndNumber)

Dim x,y,'y表示随机取得的条件所存放数组ConArray的下标
For  x=1 to rndNumber

 k=RandomNumber(0, maxNum-1)'随机取得条件数组的位置

 y=0

'每次随机产生的条件会有重复，该方法用来排除产生相同的条件的情况

 If  x=1 Then
      ConArray(0)=k’第一个条件，不用考虑重复问题，直接存入输组中

 else  '当取第二个条件时，就要开始和前面已经产生的存放在ConArray数组中的数据进行比较，相同则重新去取随机数
   Do while y<x-1
    If ConArray(y)=k Then
      k=RandomNumber(0, maxNum-1)
      y=-1
              End If
    
      y=y+1
   Loop
        ConArray(y)=k

  End If

NEXT