Sub Main()
创新互联-成都网站建设公司，专注网站设计、成都网站制作、网站营销推广，国际域名空间，网页空间，网站托管、服务器租用有关企业网站制作方案、改版、费用等问题，请联系创新互联。
Dim a As Boolean = True, b As Boolean = False
Console.WriteLine(LCase("a=" a " b=" b))
Console.WriteLine(LCase("true and false = " (a And b)))
Console.WriteLine(LCase("true and not false = " (a And Not b)))
Console.WriteLine(LCase("true false or false = " ((ab) Or b)))
Console.ReadKey()
End Sub
果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能
' 如果没有指定格式，则返回字符串。
MyStr = Format(23) ' 返回 "23"。
' 用户自定义的格式。
MyStr = Format(5459.4, "##,##0。00") ' 返回 "5,459.40"。
MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。
MyStr = Format(5, "0。00%") ' 返回 "500.00%"。
MyStr = Format("HELLO", "") ' 返回 "hello"。
MyStr = Format("This is it", "") ' 返回 "THIS IS IT
写入txt文档的方法，需要一个参数作为写入的字符串：
Private Sub WriteDoc(ByVal wstring As String)
Using sw As New StreamWriter(Application.StartupPath "\output.txt", True)
sw.Write(wstring)
End Using
End Sub