Private Sub Command1_Click() Text1 = "" a = InputBox("请输入一个字符串:") For i = 1 To Len(a) Text1 = Mid(a, i, 1) & Text1 Next iEnd Sub
。