注册 登录
编程论坛 VB6论坛

如何排列数字?

yuma 发布于 2022-10-27 23:15, 1207 次点击
VB如何将将数字 1、2、3、4、5、6、7、8、9、10

排列成:

1    2    3
4    5    6
7    8    9
10

注意:每行前后不能有空格。
4 回复
#2
cwa99582022-10-28 08:29
来个简单易懂的。
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
#3
cwa99582022-10-28 08:34
或者:
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编辑过]

#4
apull2022-10-28 08:35
直接取余 if (i+1)mod3=0 then
#5
yuma2022-10-28 17:40
回复 3楼 cwa9958
已解决,感谢回复!

只有本站会员才能查看附件,请 登录


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

1