字符串的输入，删除练习

字符串输入、删除操作练习 HYPERLINK "http://vb.snnu.edu.cn/selectedarticles/61-2010-04-11-08-18-49.pdf" \o "PDF" 作者：dr.h    周日, 2010年 04月 11日 16:18 编写一Windows应用程序，要求： ⑴ 通过两个TextBox文本框分别输入源字符串和特征字符串； ⑵ 添加“删除”按钮，完成把源字符串中的特征字符串删除的操作； ⑶ 通过TextBox文本框输出： l   源字符串的长度； l   进行“删除”处理后的字符串及其长度。 下载 源代码：   Public Class Form1 Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click '输出源字符串 Me.txtOutput.Text = "源字符串：" & Me.txtSource.Text & vbCrLf '输出源字符串长度 Me.txtOutput.Text = Me.txtOutput.Text & "源字符串长度：" & CStr(Me.txtSource.Text.Length) & vbCrLf   '输出特征字符串 Me.txtOutput.Text = Me.txtOutput.Text & "特征字符串：" & Me.txtCharacter.Text & vbCrLf   '删除操作,可以使用替换子串操作Replace，使用空串替换特征字符串 Dim strTemp As String strTemp = Me.txtSource.Text '删除操作 strTemp = strTemp.Replace(Me.txtCharacter.Text, "")   '输出替换后的结果 Me.txtOutput.Text = Me.txtOutput.Text & "删除后的结果：" & strTemp & vbCrLf '删除后字符串长度 Me.txtOutput.Text = Me.txtOutput.Text & "删除后字符串长度：" & CStr(strTemp.Length) & vbCrLf End Sub   Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click   Close()   End Sub End Class   字符串输入、删除操作练习 作者：dr.h    周日, 2010年 04月 11日 16:18 编写一Windows应用程序，要求： ⑴ 通过两个TextBox文本框分别输入源字符串和特征字符串； ⑵ 添加“删除”按钮，完成把源字符串中的特征字符串删除的操作； ⑶ 通过TextBox文本框输出： l   源字符串的长度； l   进行“删除”处理后的字符串及其长度。 下载 源代码：   Public Class Form1 Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click '输出源字符串 Me.txtOutput.Text = "源字符串：" & Me.txtSource.Text & vbCrLf '输出源字符串长度 Me.txtOutput.Text = Me.txtOutput.Text & "源字符串长度：" & CStr(Me.txtSource.Text.Length) & vbCrLf   '输出特征字符串 Me.txtOutput.Text = Me.txtOutput.Text & "特征字符串：" & Me.txtCharacter.Text & vbCrLf   '删除操作,可以使用替换子串操作Replace，使用空串替换特征字符串 Dim strTemp As String strTemp = Me.txtSource.Text '删除操作 strTemp = strTemp.Replace(Me.txtCharacter.Text, "")   '输出替换后的结果 Me.txtOutput.Text = Me.txtOutput.Text & "删除后的结果：" & strTemp & vbCrLf '删除后字符串长度 Me.txtOutput.Text = Me.txtOutput.Text & "删除后字符串长度：" & CStr(strTemp.Length) & vbCrLf End Sub   Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click   Close()   End Sub End Class