十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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