Private Sub Command1_Click()Dim i As Integer, s As Integers = Text1.TextFor i = 1 To Len(Text2.Text)
s = Replace(s, Mid(Text2.Text, i, 1), "") '将所有的存在的都替换没到NextText3.Text = sEnd Sub'试试看，是不是你想要的...
我试过了，对的MID是一个函数用来从指定位置取要几个字符的函数Private Sub Command1_Click()Dim i As Integer, j As Integer, m As Integerm = Len(Text2.Text)p = ""For i = 1 To 5
flag = 1 For j = 1...
