VB要求从某一字符串中删除指定的字符
(假设所含的英文字母均为小写字母),并将处理后的字符串重新输出。程序界面如图所示,在文本框Text_1中输入原始字符串,在文本框Text_2中输入需要删除的字符,单击"删...
(假设所含的英文字母均为小写字母),并将处理后的字符串重新输出。
程序界面如图所示,在文本框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)程序中②划线处应填入________________。 展开
程序界面如图所示,在文本框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)程序中②划线处应填入________________。 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询