28,391
社区成员
发帖
与我相关
我的任务
分享
A="a,b,c,d,e,f,g"
B="fcde"
function strcontain(a,b)
for i=1 to len(b)
if instr(a,mid(b,i,1))=0 then
strcontain=false:exit function
end if
next
strcontain=true
end function
allcontain=strcontain(a,b)
msgbox allcontain
allcontain=strcontain(a,"fhij")
msgbox allcontain