如何提取文本框每位字符或数字

来源：百度知道 编辑：UC知道 时间：2024/05/24 16:32:02
文本框内容为“a11”
通过代码，提取为

text1.text=“a”
text2.text=“1”
text3.text=“1”

text1.text=mid("a11",1,1)
text2.text=mid("a11",2,1)
text3.text=mid("a11",3,1)

如果你的文本框的内容很长的话 用循环的方法比较简单.

Dim s As String
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text, i, 1)
Print s
Next i