VB如何将将数字 1、2、3、4、5、6、7、8、9、10

排列成：

1    2    3
4    5    6
7    8    9
10

注意：每行前后不能有空格。

来个简单易懂的。
sub pailie (a())
   dim i as integer,j as integer
   for i=0 to ubound(a)
      print a(i),
      j=j+1
      if j=3 then
         print
         j=0
      endif
   next
   print
end sub

或者：
Sub Pailie1(a())
   Dim i As Integer
   For i = 0 To UBound(a)
      Print a(i),
      If (i + 1) \ 3 = (i + 1) / 3 Then  Print
   Next
   Print
End Sub

[此贴子已经被作者于2022-10-28 08:35编辑过]

直接取余 if (i+1)mod3=0 then

已解决，感谢回复！

[此贴子已经被作者于2022-10-30 18:14编辑过]