【正文】
mp。 k i = i + 1 Loop While i = Len(st1) Text2 = st1End SubPrivate Sub del(s As String, k As Integer) Dim i As Integer For i = k To Len(s) 1 Mid(s, i, 1) = Mid(s, i + 1, 1) Next i s = Left(s, Len(s) 1)End SubPrivate Sub Command2_Click() Text1 = : Text2 = End Sub