a(i) = Mid(Text1.Text,i,

问题描述:

a(i) = Mid(Text1.Text,i,

在Text1.Text中,从i位开始向右取1个字符 ,赋值给a(i)