'volumeofbox2volume=Box2.height*Box2.length*Box2.breadthConsole.WriteLine("VolumeofBox2:{0}",volume)Console.ReadKey
date1)Console.WriteLine(date2)Console.WriteLine(date3)Console.WriteLine(date4)Console.WriteLine(date5)Console.ReadKey
ConstPI=3.14149Dimradius,areaAsSingleradius=7area=PI*radius*radiusConsole.WriteLine("Area="&Str(area))Console.ReadKey
ImportsSystemModuleModule1'ThisprogramwilldisplayHelloWorldSubMain()Console.WriteLine("HelloWorld")Console.ReadKey
Console.WriteLine(CStr(da))Console.WriteLine(CChar(CChar(CStr(n))))Console.WriteLine(CChar(CStr(da)))Console.ReadKey
EndExternalSourceEndSubEndClassSubMain()DimtAsNewExternalSourceTester()t.TestExternalSource()Console.WriteLine("InMain.")Console.ReadKey
0To20f1.WriteByte(CByte(i))Nextif1.Position=0Fori=0To20Console.Write("{0}",f1.ReadByte())Nextif1.Close()Console.ReadKey
Exceptioncaught:{0}",e)FinallyConsole.WriteLine("Result:{0}",result)EndTryEndSubSubMain()division(25,0)Console.ReadKey
DimstrAsString="AThousandSplendidSuns"Console.WriteLine("Matchingwordsthatstartwith'S':")showMatch(str,"SS*")Console.ReadKey
sortthearrayArray.Sort(list)Console.Write("SortedArray:")ForEachiInlistConsole.Write("{0}",i)NextiConsole.WriteLine()Console.ReadKey