VB要求从某一字符串中删除指定的字符（假设所含的英文字母均为小写字母），并将处理后的字符串重新输出。程序界面如图所示，在文本框Text1中输入原始字符串，在文本框Text2中输入需要删除的字符，单击"删除此字符"按钮（Command1）后，在文本框Text3中输出处理后的结果。上传不了图，用字表示：字符删除程序输入原始字符串(label1)(text1)输入需要删除的字符(label2)(text2)删除此字符（Command1)处理后结果(label3)(text3) 解决此问题的算法流程图如图所示，
2019-04-16
VB要求从某一字符串中删除指定的字符
（假设所含的英文字母均为小写字母），并将处理后的字符串重新输出。
程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击"删除此字符"按钮（Command1）后，在文本框Text_3中输出处理后的结果。
上传不了图，用字表示：
字符删除程序
输入原始字符串(label1)_________(text1)
输入需要删除的字符(label2)_______(text2)删除此字符（Command1)
处理后结果(label3)________(text3)
解决此问题的算法流程图如图所示，相应的Visual Basic程序如下：
Dim p As String, k As String
Private Sub Command1_Click()
Dim s As Integer, result As String, flag As Boolean
result = ""
p = Text_1.Text
k = Text_2.Text
For s = 1 To Len(p)
flag = f(s)
If Not flag Then
result = result + ①
End If
Next s
②
End Sub
Function f(s As Integer) As Boolean
If Mid(p, s, 1) = k Then f = True
End Function
（1）解决此问题的算法是_顺序查找___。 （选填：顺序查找 或 对分查找）
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。
（2）程序中①划线处应填入______________。
（3）程序中②划线处应填入________________。
优质解答
Mid(p, s, 1) '不是要找的字母，那就添加到result中
text_3.text=result '显示结果
Mid(p, s, 1) '不是要找的字母，那就添加到result中
text_3.text=result '显示结果