Private Sub Command1_Click() Dim str As String Dim aa As String str = Text1.Text Open ＂c:\a.txt＂ For Input As #1 Line Input #1, a Close #1 If InStr(a, str) Then aa = Replace(a, str, ＂＂) Open ＂c:\a.txt＂ For Output As #2 Print #2, aa Close #2 Open ＂c:\b.txt＂ For Input As #3 Line Input #3, b Close #3 Open ＂c:\b.txt＂ For Output As #4 Print #4, CInt(b) + 1 Close #4

MsgBox ＂完成＂， vbOKOnly， ＂系统提示＂

Else MsgBox ＂你输入的信息不存在＂， vbOKOnly， ＂系统提示＂ End If End Sub