If "3333aa".EndsWith("aa") Then MessageBox.Show("以aa结尾")
10多年的下城网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。全网整合营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整下城建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“下城网站设计”,“下城网站推广”以来，每个客户项目都认真落实执行。
or :
dim str as string = "3333aa"
if str.EndsWith("aa") Then MessageBox.Show("以aa结尾")
a="@1991@1205@844@3276@1104@747@1069@0.9@4@3@104810571073
"
a=Replace(a,"@",",")
a=Replace(a,"",",")
dim b()
b=split(a,",")
有许多字符串操作技巧可以帮助你优化代码，以获得更好的性能。StringBuilder允许你执行重复的字符串操作，取得比手工操作更佳的性能。在本文中，我说明在VB.NET中利用StringBuilder的情况。应用StringBuilder的优点StringBuilder是一个可修改字符的缓冲器。当你不直接进行字符串操作而应用StringBuilder时，与每次重复生成一个含有修正的新字符串相比，这样可以获得更佳的性能。你不能总是希望性能得到提高，因为StringBuilder有少量的过度操作，会将指定字符串的内容复制到StringBuilder中，然后将由StringBuilder得到的结果值复制回字符串对象中。在进行二个或更多字符串操作时，我建议使用StringBuilder。(如果只有一项改变，将值复制进StringBuilder再拷贝出来并不会改善性能。)StringBuilder方法Append:允许你在缓冲器末端增加一个字符串。注意，在应用StringBuilder对象时不能使用操作符。
Insert:允许你在StringBuilder对象中增加一个字符串。(就像String.Insert一样。)
Remove:允许你从StringBuilder对象中删除一个字符串。(就像String.Remove一样。)
Replace:允许你替代StringBuilder对象的一部分。(就像String.Replace一样。)
实例在列表A的样本代码中，我建立一个字符串变量strOriginal来保存原始文本的值。我还定义StringBuilder对象BuilderStr，我将利用它对存储在srtOriginal中的文本进行字符串操作。定义BuilderStr时，我将它设定到strOriginal的值中。之后，我操作BuilderStr，给它添加一些文本(“is”,
”very”,”
important”)，然后再利用Replace方法去掉”very”这个单词。(注意，在这个例子中，你使用Remove方法而非Replace方法。)最后，我用BuilderStr.ToString的值更新strOriginal，并在信息框中显示所得到的字符串。
调用 脚本解析引擎，
textbox2.text=Eval(textbox1.text).ToString()
Function Eval(ByVal Expressions As String) As Double
Dim Mssc = CreateObject("MSScriptControl.ScriptControl")
Mssc.Language = "vbscript"
Return CDbl( Mssc.Eval(Expressions))
End Function
不喜欢上面提示的警告的话
textbox2.text=EvalString(textbox1.text)
Function EvalString(ByVal Expressions As String) As String
dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
Dim o = System.Activator.CreateInstance(oType)
oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object(){ "vbscript"})
Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object(){Expressions}).ToString()
End Function
Eval 在VB中使用，刚找到的_vb吧_百度贴吧
