程序解析删除字符串中的1个特定字母.docVIP

程序语句语句解释 result = result + Mid(p, s, 1) 后暗含 Else result = result If Mid(p, s, 1) = k Then f = True 后暗含 If Mid(p, s, 1) k Then f = False本语句在Private Sub Command1_Click()之外表示全局函数对所有程序段都有效Dim p As String, k As String定义变量p为字符串型 定义变量k为字符串型Private Sub Command1_Click()点击Command1按钮启动按钮单击事件Dim s As Integer, result As String, flag As Boolean定义变量s为整数型、变量result为字符串型、变量flag为逻辑型result = result为空p = Text_1.Textp为文本框text 1中的文本k = Text_2.Textk为文本框text 2中的文本For s = 1 To Len(p)就是循环从1到p变量包含的字符串的长度 flag = f(s)flag为自定义函数f(s) If Not flag Then 因为flag不是为自定义函数f(s)，成条件成立，（把输入的每一个字符拿来和输入在第二文本框中的字母比较如果不一样，条件成立） result = result + Mid(p, s, 1) 将该字母累加排到上一次循环后的result中的字母之后并成为新的result （Mid(p,s,1)是返回p中的若干字符中第s位上的字符）  End If条件结束（如果先输入的若干字符语新输入的一个字符相同的则不累加）Next s循环结束 Text 3.Text = result在text_3中显示出最终的result中的字符End Sub程序结束Function f(s As Integer) As Boolean子程序 f(s)为逻辑型，s为整数型 If Mid(p, s, 1) = k Then f = True如果某个字符语新输入的字符相同f为真 与 not flag 对应 f为假（false）End Function VB要求从某一字符串中删除指定的字符 （假设所含的英文字母均为小写字母），并将处理后的字符串重新输出。程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击删除此字符按钮（Command1）后，在文本框Text_3中输出处理后的结果。上传不了图，用字表示：字符删???程序输入原始字符串(label1)_________(text1)输入需要删除的字符(label2)_______(text2)删除此字符（Command1)处理后结果(label3)________(text3)解决此问题的算法流程图如图所示，相应的Visual Basic程序如下：Dim p As String, k As StringPrivate Sub Command1_Click()Dim s As Integer, result As String, flag As Booleanresult = p = Text_1.Textk = Text_2.TextFor s = 1 To Len(p) flag = f(s) If Not flag Then result = result + ①  End IfNext s ② End SubFunction f(s As Integer) As Boolean If Mid(p, s, 1) = k Then f = TrueEnd Function（1）解决此问题的算法是_顺序查找___。 （选填：顺序查找 或 对分查找）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。（2）程序中①划线处应填入______________。（3）程序中②划线处应填入________________。 Mid(p, s, 1) 不是要找的字母，那就添加到result中text_3.text=result 显示结果