第一种方法，用双For循环控制：
For y = 0 To 5 '外循环控制显示的行数
For x = 0 To 9 '内循环控制每行显示的个数
Print 10 * y + x + 1;
Next x
Print '一行输出完了就换行
Next y
第二种方法：用Mod（求模，或者说求余数）来决定多少个就换行：
n = 1
Do While n <= 100
Print n;
If n Mod 10 = 0 Then Print '当数据的序号能被10整除（即10、20、30……）时就换行
n = n + 1
Loop
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024