VB要求从某一字符串中删除指定的字符 Mid(p，s，1)'不是要找的字母，那就添加到result中text_3.text=result '显示结果
VB.NET 如何实现删去指定字符及以后的内容 t=\"1234a789405450tt=InStr(t，\"a\")-1If tt>；1 Thent=Mid(t，1，tt)MsgBox tEnd If
vb中从键盘输入一个字符串（要求任意长度），然后删除其中的非数字字符，最后输出。(FOR语句) Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=vbKeyReturn ThenDim Txt As StringFor i=1 To Len(Text1.Text)If Asc(Mid(Text1.Text，i，1))>；=48 And Asc(Mid(Text1.Text，i，1))(Text1.Text，i，1)Next iMsgBox TxtEnd IfEnd Sub另外：If Asc(Mid(Text1.Text，i，1))>；=48 And Asc(Mid(Text1.Text，i，1))(Text1.Text，i，1)还可以简化为：If Mid(Text1.Text，i，1)Like\"[0-9]\"Then Txt=Txt&Mid(Text1.Text，i，1)
VB的删除空白字符函数，在字符串函数中，有三个删除空白字符函数，分别是Ltrim，去掉字符中左边的空白字符；rtrim，去掉字符中右边的空白字符；trim，去掉字符两边的空白。
vb.net编写一个为列表框添加删除选项的应用程序，如果该字符串在列表框中， Private Sub TextBox1_KeyPress(ByVal sender As System.Object，ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles TextBox1.KeyPressIf e.KeyChar.ToString()=Chr(13)ThenDim str As String=TextBox1.TextIf Not ListBox1.Items.Contains(str)ThenListBox1.Items.Add(str)End IfEnd IfEnd SubPrivate Sub btn_Remove_Click(ByVal sender As System.Object，ByVal e As System.EventArgs)Handles Button1.ClickIf ListBox1.SelectedIndex>；0 ThenListBox1.Items.RemoveAt(ListBox1.SelectedIndex)End IfEnd SubPrivate Sub btn_Clear_Click(ByVal sender As System.Object，ByVal e As System.EventArgs)Handles Button2.ClickListBox1.Items.Clear()End Sub
