Vbscript 在VB脚本中对weblist或下拉列表进行一些验证

我的应用程序中有一个由许多项组成的weblist或下拉列表

我不知道计数，但我需要验证以下内容-

验证是否没有重复的项

验证所有项目都不是数字

验证所有项目是否处于已排序状态

请用VB脚本建议您各自的解决方案

---

我想在QTP工具（自动化测试工具）中执行此脚本。

所有项目

属性以分号分隔的列表提供所有属性

为了对列表进行排序，每个项目都严格大于之前的项目就足够了

all = Browser("B").Page("P").WebList("L").GetROProperty("all items")
arr = split(all, ";")
a = arr(0)
For i = 1 to UBound(arr) -1
    b = arr(i)
    cmp = StrComp(a, b)
    If cmp = 0 Then
        MsgBox "Duplicate"
    ElseIf  cmp > 0 Then
        MsgBox "Unordered"
    End If

    If isNumeric(b) Then 
        MsgBox "Numeric"
    End If

    a = b
Next

aTest=数组（“adf”、“bfdsdf”、“xdfds”、“efgdfg”、“fdfsdf”、“gdfsfs”、“IDFGDF”）
bResult=True
对于i=0到uBound（aTest）-1
如果asc（aTest（i））
还要添加一条验证规则：（2）-“验证所有项目都不是数字”。如果为数字（b），则MsgBox（“数字”）结束
aTest = Array("adf","bfdsdf","xdfds", "efgdfg" ,"fdfsdf","gdfsfs","idfgdfg")

bResult = True

for i=0 to uBound(aTest) -1

    if asc(aTest(i)) < asc(aTest(i+1)) OR asc(aTest(i)) = asc(aTest(i+1)) Then
        bResult = bResult AND True
    Else
        bResult = bResult AND False 
    End If
Next

msgbox "Main result:"&bResult


'if bResult return true then array is sorted else it is not sorted