如何打印分隔列？

Question

假设开始是1，停止是10。我想在列号中打印1到5，然后在另一个列号中打印6-10。

我能单圈做这个吗？还是我必须做另一个循环？另外，我也不知道如何从第二列( {1, -10} )开始

    Console.WriteLine("{0,-10}", "Number")

    Dim split = (starting + stopping) / 2

    For A = starting To split
        Console.WriteLine("{0,-10}", A)
    Next

更新-预期结果

Number Number
1      6
2      7
3      8
4      9
5      10

更新2 -使它们对齐，而不是使用空格()，任何其他解决方案，我们可以使它们相同的宽度，并在中间列对齐

​

Answer 1

我会用一个循环来写这样的东西：

Sub TwoColumns(ByVal starting as Integer,ByVal stopping as Integer)
  Dim split As Integer,i As Integer
  split = (starting + stopping) / 2
  For i=starting  to split
    Debug.Print (i) & Space(5) &  (i+split-starting)
  Next i
End Sub