list1.additem (ss(str(i)))
.......
private function ss(byval s as string) as string
dim i as integer,n as integer
dim t as string
n=len(s)
for i=1 to n
t=t & mid(s,i,1) & "^" & n & "+"
next i
t=left(t,len(t)-1)
ss=t
end function
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024