Question

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

文本框内容为“a11”
通过代码，提取为

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

Answer 1

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

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

Answer 2

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