Module ttable Sub Main(ByVal args() As String) If (args.Length = 0) Then Console.WriteLine("Usage: ttable num num num ...") Else Console.Write(" ") For j As Integer = 0 To args.Length - 1 Dim v As Double = args(j) Console.Write(" {0,7:G}", v) Next Console.WriteLine() For i As Integer = 1 To 10 Console.Write("{0,2:D}x", i) For j As Integer = 0 To args.Length - 1 Dim v As Double = args(j) Console.Write(" {0,7:G}", i * v) Next Console.WriteLine() Next End If End Sub End Module