Question

按键精灵如何分割字符串？

Answer 1

Dim a,b
a = "abcdefg"
c=len(a)
TracePrint c

Dim b(10) //定义的值要大于a串的长度轿答拍
For i=1 to c

b(i) = Mid(a, i, 1)//a为串，i为起举纳始位置闭羡，1表示一个字符
TracePrint b(i) //以数组形式输出
Next