Sub?Main()
創(chuàng)新互聯(lián)-成都網(wǎng)站建設(shè)公司,專注網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、網(wǎng)站營(yíng)銷推廣,國(guó)際域名空間,網(wǎng)頁(yè)空間,網(wǎng)站托管、服務(wù)器租用有關(guān)企業(yè)網(wǎng)站制作方案、改版、費(fèi)用等問題,請(qǐng)聯(lián)系創(chuàng)新互聯(lián)。
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
果在格式化數(shù)字時(shí)沒有指定 format,F(xiàn)ormat 會(huì)提供與 Str 函數(shù)類似的功能
' 如果沒有指定格式,則返回字符串。
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文檔的方法,需要一個(gè)參數(shù)作為寫入的字符串:
Private Sub WriteDoc(ByVal wstring As String)
Using sw As New StreamWriter(Application.StartupPath "\output.txt", True)
sw.Write(wstring)
End Using
End Sub