首先执行Sub Main()
成都创新互联公司专注于企业全网营销推广、网站重做改版、新丰网站定制设计、自适应品牌网站建设、H5高端网站建设、成都做商城网站、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为新丰等各大城市提供网站开发制作服务。
①定义两个变量a=45 b=18
②将a和b作为sum过程的两个参数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