dim s as string
s="418456safsdfs15s1df51sdf56sd"
dim Boo as Booleen
dim Sum as integer
for i=1 to len(s)
boo= Asc(mid(s,i,1))>=Asc(0) and Asc(mid(s,i,1))<=Asc(9)
if Boo=true then
sum=sum+mid(s,i,1)
end if
next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024