vb 截取字符串函数答:text1.text = mid(string,1,1)text2.text = mid(string,2,1)text3.text = mid(string,3,1)text4.text = mid(string,4,1)text5.text = mid(string,5,1)text6.text = mid(string,6,1)text7.text = mid(string,7,1)text8.text = mid(string,8,1)text9.text = mid(string,9...