VBScript，checkbox，选择问题

Dim oWebChkDesc2,skillObj,skillObjCount,o
Set oWebChkDesc2=description.Create
oWebChkDesc2("type").value="checkbox"
oWebChkDesc2("html tag").value="INPUT"
oWebChkDesc2("name").value="xxx"
Set skillObj=Browser("xxxx").Page("xxxx").WebElement("xxx").ChildObjects (oWebChkDesc2)
skillObjCount=skillObj.count
'msgbox counts
If skillObjCount>0 Then
        For o=0  to o=skillObjCount-1
            skillObj(o).Set "ON"
        Next

End If