急求VB高手！！

来源：百度知道 编辑：UC知道 时间：2024/09/24 02:10:37
帮我作一道题！！！编个程序！！！
WINDOWS应用程序
1.通过两个文本框输入源字符串和特征字符串
2添加：“删除”按钮，完成源字符串中特征字符串的删除的操作
3通过文本框输出源字符串的长度和进行删除后的字 符串和它的长度！
限用LENTH,INDEXOF,和REMOVE 三个函数！！！

不知道这样能写能否解决你工程需求条件？
text1 用于输入源字符串
text2 用于属于特征字符串
字符输出部分代码稍作修改就满足你设立输出条件了！

Private Sub Command1_Click()
If Len(Text2.Text) > Len(Text1.Text) Then MsgBox "特征字符串的长度大于源字符串长度！", vbOKOnly + vbInformation: Exit Sub
Dim c As Integer, str1 As String, str2 As String
c = InStr(1, Text1.Text, Text2.Text, vbTextCompare)
str1 = Mid(Text1.Text, 1, c - 1)
str2 = Mid(Text1.Text, c + Len(Text2.Text), Len(Text1.Text) - (Len(str1) + Len(Text2.Text)))
'在立即窗口中显示结果
Debug.Print "剩余字符："; str1 & str2
Debug.Print "源字符串长度："; Len(Text1.Text) & "个字符"
Debug.Print "剩余字符串长度："; Len(str1) + Len(str2) & "个字符"
End Sub

Private Sub Command1_Click()
s = Replace(Text1.Text, Text2.Text, "")

Do
i = i + 1
y = Mid(s, i, 1)
If y <> "" Then x = x + 1
Loop Until Mid(s, i, 1) = ""

Text3.Text = s &