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

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

2025-03-06 02:32:54

推荐回答（1个）

回答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

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

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