VB程序解析删除字符串中的一个特定字母 (2)

VB程序解析删除字符串中的一个特定字母 (2) 程序语句 语句解释 本语句在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.Text p为文本框text 1中的文本 k = Text_2.Text k为文本框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中的字母之后并成为‎‎新的res ult( Mid(p,s,1)是返回p中的若干字 符中第s位上的字符) End If 条件结束(如果先输入的若干字符语 新输入的一个字符相同的则不累‎‎加) Next s 循环结束 在text_3中显示出最终的result中 Text 3.Text = result 的字符 End Sub 程序结束 result = result + Mid(p, s, 1) 后暗含 Else result = result Function f(s As Integer) As Boolean 子程序 f(s)为逻辑型，s为整数型 If Mid(p, s, 1) = k Then f = True 如果某个字符语新输入的字符相同‎‎fIf Mid(p, s, 1) = k Then f = True 后暗含 为真 与 not flag 对应 f为假If Mid(p, s, 1) <> k Then f = False (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 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 '显示结果