volumeofbox2volume=Box2.height*Box2.length*Box2.breadthConsole.WriteLine("VolumeofBox2:{0}",volume)Console.ReadKey
100Nexti'outputeacharrayelement'svalue'Forj=0To10Console.WriteLine("Element({0})={1}",j,n(j))NextjConsole.ReadKey
Letsseewhathappenstothefloatingpointvariables:")Console.WriteLine("TheSingle:{0},TheDouble:{1}",si,d)EndIfConsole.ReadKey
Modulemydirectives#Constage=TrueSubMain()#IfageThenConsole.WriteLine("YouarewelcometotheRoboticsClub")#EndIfConsole.ReadKey
Console.WriteLine(date2)Console.WriteLine(date3)Console.WriteLine(date4)Console.WriteLine(date5)Console.ReadKey
Exceptioncaught:{0}",e)FinallyConsole.WriteLine("Result:{0}",result)EndTryEndSubSubMain()division(25,0)Console.ReadKey
3.14149Dimradius,areaAsSingleradius=7area=PI*radius*radiusConsole.WriteLine("Area="&Str(area))Console.ReadKey
ImportsSystemModuleModule1'ThisprogramwilldisplayHelloWorldSubMain()Console.WriteLine("HelloWorld")Console.ReadKey
WriteByte(CByte(i))Nextif1.Position=0Fori=0To20Console.Write("{0}",f1.ReadByte())Nextif1.Close()Console.ReadKey
AThousandSplendidSuns"Console.WriteLine("Matchingwordsthatstartwith'S':")showMatch(str,"SS*")Console.ReadKey
请注意,如果便携式按键输入不可用,则此设置将被忽略;需要Perl模块Term::ReadKey。