首先執(zhí)行Sub Main()
成都創(chuàng)新互聯(lián)公司專注于企業(yè)全網(wǎng)營銷推廣、網(wǎng)站重做改版、新豐網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5高端網(wǎng)站建設(shè)、成都做商城網(wǎng)站、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù),價格優(yōu)惠性價比高,為新豐等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
①定義兩個變量a=45 b=18
②將a和b作為sum過程的兩個參數(shù)x=45(按值傳遞),y=18(按地址傳遞,將在過程中改變b的初始值)
③xy滿足條件,將 x-y=45-18=27 賦值給x ;將 x+y=27+18=45 賦值給y,此時改變了b值為45.
④輸出x的值27 y的值45
⑤輸出a的值45 b的值45
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
以下示例一次從文件中讀取一行,然后將每行文本打印到控制臺。
Sub ReadTextLinesFromFile()
Dim file As New System.IO.StreamReader("c:test.txt")
Dim oneLine As String
oneLine = file.ReadLine()
While (oneLine "")
Console.WriteLine(oneLine)
oneLine = file.ReadLine()
End While
file.Close()
End Sub
當(dāng)前題目:vb點虐
控制臺輸出 vb 控制臺輸出
鏈接地址:http://muchs.cn/article30/ddcjspo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站建設(shè)、Google、品牌網(wǎng)站設(shè)計、App開發(fā)、云服務(wù)器、域名注冊
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)