Question

VB6.0在文本框里输入123456，点击命令按钮则在标签里显示1/2/3/4/5/6

在窗体上有一个文本框，一个命令按钮，一个标签
在文本框里输入123456，点击命令按钮则在标签里显示1/2/3/4/5/6
请问各位高手，这个如何实现？？？要代码.......

Answer 1

dim i as integer
dim s as string
for i = 0 to len(text1.text)-1 '一个一个字符循环
s = s & mid(text1.text,i+1,1) & " " '每一次都在最后加上单个字符和一个空格 为什么不直接用/呢？因为直接用的话每次最后一个字符会是“/”，到了最后成为了1/2/3/4/。这里暂时用空格
next
s = trim(s) '用空格的原因：用trim去除字符串左右的空格
s = replace(s," ","/") '最后把空格换成“/”
label1.caption = s '输出～……

当然这里什么都没有去限制 也就是abcd会变成a/b/c/d……不过如果是有空格的话原来的空格会变成“/” 呵呵~~不足之处 不过对于你的数字的要求已经足够了。

如果你要限定是数字可以在dim s as string后面加上两句：
on error resume next
text1.text = val(text1.text) '转换成数字，如果是空白内容或者纯字母则继续……因为空白内容或者纯字母会报错……

Answer 2

截取字符串