你的问题不完整，叫人怎么回答？Dim i as longDim strs,gets as stringstrs="这里是内容"for i=1 to len(strs)gets=mid(strs,i,1)next i可能是你要的……
Huh?
