[讲解]VB程序解析删除字符串中的一个特定字母

[讲解]VB程序解析删除字符串中的一个特定字母[讲解]VB程序解析删除字符串中的一个特定字母程序语句语句解释本语句在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为整数型、变量res...

[讲解]VB程序解析删除字符串中的一个特定字母程序语句语句解释本语句在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中的字母之后并成为新的 result (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 '显示结果

                    本文档为【[讲解]VB程序解析删除字符串中的一个特定字母】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

[讲解]VB程序解析删除字符串中的一个特定字母

你可能还喜欢