DimaAsInteger=100DimbAsInteger=200DimresAsIntegerres=FindMax(a,b)Console.WriteLine("Maxvalueis:{0}",res)Console.ReadLine
DimchatAsString=String.Format("Messagesentat{0:t}on{0:D}",waiting)Console.WriteLine("Message:{0}",chat)Console.ReadLine
EndSubSubMain()'callingtheCalculatePaySubProcedureCalculatePay(25,10)CalculatePay(40,20)CalculatePay(30,27.5)Console.ReadLine
ModulevariablesNdataypesSubMain()DimaAsShortDimbAsIntegerDimcAsDoublea=10b=20c=a+bConsole.WriteLine("a={0},b={1},c={2}",a,b,c)Console.ReadLine
Then'ifconditionistruethenprintthefollowing'Console.WriteLine("aislessthan20")EndIfConsole.WriteLine("valueofais:{0}",a)Console.ReadLine
Console.WriteLine("Area:{0}",GetArea())EndSubSharedSubMain()DimrAsNewRectangle()r.Acceptdetails()r.Display()Console.ReadLine
",c)c=aModbConsole.WriteLine("Line6-Valueofcis{0}",c)c=b^pConsole.WriteLine("Line7-Valueofcis{0}",c)Console.ReadLine