function array_no(cxstrcxstrcxstr)
if len(cxstr) > then
if not IsNumeric(cxstr) then
array_no = "对不起参数类型必需为数字"
Exit Function
end if
else
array_no = "对不起参数类型必需为数字"
Exit Function
end if
if isarray(cxstr) then
array_no = "对不起参数不能为数组"
Exit Function
end if
if cxstr = "" or isempty(cxstr) then
array_no = "没有数据"
Exit Function
end if
ss = split(cxstrcxstr)
cxs=cxstr&ss()&cxstr
sss=cxs
for m = to ubound(ss)
cc = cxstr&ss(m)&cxstr
if instr(ssscc)= then
sss = sss&ss(m)&cxstr
end if
next
array_no = right(ssslen(sss)len(cxstr))
array_no = left(array_nolen(array_no)len(cxstr))
if cxstr <> then
cx_sp = split(array_nocxstr)
if cxstr > ubound(cx_sp) then
array_no = cx_sp(ubound(cx_sp))
else
array_no = cx_sp(cxstr)
end if
end if
end function%>
