DimfAsString
Subprintstr(s()AsString)
Dims2()AsString,kAsString
IfUBound(s)-LBound(s)=0Then
Printf&""&s(LBound(s))
Else
Fori=LBound(s)ToUBound(s)
ReDims2(LBound(s)ToUBound(s)-1)
Forj=LBound(s)ToUBound(s)-1
Ifj<iThen
s2(j)=s(j)
Else
s2(j)=s(j+1)
EndIf
Next
k=f
f=f&""&s(i)
printstrs2
f=k
Next
EndIf
EndSub
4406

被折叠的 条评论
为什么被折叠?



