Question

VB求解 要模仿Word字处理软件的查找替换功能编程，运行程序在查找文本框中输入要查找的内容，在替

VB求解
要模仿Word字处理软件的查找替换功能编程，运行程序在查找文本框中输入要查找的内容，在替换为文本框中输入要替换的内容，然后单击“替换”按钮将替换后的结婚显示在结婚文本框中，单击“退出”按钮退出程序。

Answer 1

不知道你那些控件的名称，随便写一个程序供你参考，程序如下：
Private Sub Command1_Click()
Dim f$, c$, s$, jg$, p%
s = "电脑硬件电脑系统"
f = "电脑"
c = "计算机"
p = InStr(s, f)
Do While p <> 0
jg = Left(s, p - 1) & c & Right(s, Len(s) - p - Len(f) + 1)
s = jg
p = InStr(s, f)
Loop
MsgBox jg
End Sub

追问

谢谢