Option Base 1Dim a(5) As String'在通用声明段声明Private Sub Command1_Click()For i = 1 To 4 a(i) = Mid(Text1, i, 1) '将text1中的内容一个一个存入数组中Next iEnd Sub我不知道你具体要做什么所以只能这样编了
mid