怎么用数组接受文本框里面的数据啊
实例Private Sub Command1_Click()
Dim mw(1 To 40) As String
Dim jm(1 To 40) As String
Dim i As Integer
Dim c As String
For i = 1 To Len(Text1)
c = Mid(Text1, i, 1)
jm(i) = CStr(CInt(c) - i)
Next
For j = 1 To i
Text1 = Text1 & jm(i)
Next
End Sub
但出现类型不匹配
如在文本框输入bmpfs
经过运算后在文本框中输出相应的解密数据
