Private Sub Command1_Click()
Dim s1, s2 As String
Dim i, n As Integer
n = Len(Text2.Text)
If n <= Len(Text1.Text) Then
For i = 1 To n
If Mid(Text1.Text, i, n) = Text2.Text Then
s1 = Left(Text1.Text, i - 1) & Text3.Text & Right(Text1.Text, Len(Text1.Text) - i - 1)
Text1.Text = s1
End If
Next i
End If
End Sub
cmd1里写
text1=replace(text1,text2,text3)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024