Imports System
Public Class Test
Public Shared Sub Main()
Dim number as Integer
Dim Squared as Integer
Dim Answer as Integer
ControlChars.Tab & "Number" & ControlChars.Tab & "Squared"
For Answer = 1 to 10
number = Answer
Squared = number * 2
ControlChars.Tab & number & ControlChars.Tab & Squared
Next Answer
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCURpbSBudW1iZXIgYXMgSW50ZWdlcgoJRGltIFNxdWFyZWQgYXMgSW50ZWdlcgoJRGltIEFuc3dlciBhcyBJbnRlZ2VyCglDb250cm9sQ2hhcnMuVGFiICYgIk51bWJlciIgJiBDb250cm9sQ2hhcnMuVGFiICYgIlNxdWFyZWQiCkZvciBBbnN3ZXIgPSAxIHRvIDEwCgludW1iZXIgPSBBbnN3ZXIKCVNxdWFyZWQgPSBudW1iZXIgKiAyCglDb250cm9sQ2hhcnMuVGFiICYgbnVtYmVyICYgQ29udHJvbENoYXJzLlRhYiAmIFNxdWFyZWQKTmV4dCBBbnN3ZXIKCUVuZCBTdWIKRW5kIENsYXNz