Imports System

Imports System.Text

Module Module1

Sub Main()

Dim Str As StringBuilder

Console.WriteLine("使用StringBuilder的例子")

Str = New StringBuilder("东北大学海天工作室，http://zsjy.neu.edu.cn")

Console.WriteLine("原来的文字:" + Str.ToString)

Str.Replace("东北大学", "neu2000")

Console.WriteLine("使用Replace()方法之后的文字:" + Str.ToString)

Str.Append("，成员icefox ")

Str.Append("，neu2000 ")

Console.WriteLine("使用Append方法之后的文字:" + Str.ToString)

Str.Insert(Str.Length, "作者：王明海")

Console.WriteLine("使用insert方法之后的文字:" + Str.ToString)

Console.ReadLine()

End Sub

End Module

上面并没有使用全部的字符串方法，其他的请各位自己琢磨。