按格式输出。。。
1到100 每列33个
1 34 67 100
2 35 68
3 。 。
4 。 。
5 。 。
。 。 。
。 。 。
。 。 。
。 65 98
33 66 99
或者这样的也可以:
1 34 67
2 35 68
3 。 。
4 。 。
5 。 。
。 。 。
。 。 。
。 。 。
。 65 98
33 66 99
100
按上面二种输出。数据。。不知道怎么用循环。。。。:(
[解决办法]
For j = 0 To 32
For i = 1 To 3
If i <> 1 Then
Text1.Text = Text1.Text & j + 33 * (i - 1) + 1 & " "
Else
Text1.Text = Text1.Text & i * j + 1 & " "
End If
Next i
Text1.Text = Text1.Text & vbCrLf
Next j
Text1.Text = Text1.Text & "100 "
[解决办法]
Cost max =100
cost Maxline = 33
dim x as long,y as long
dim k as long
k= Max \ MaxLine
for x =0 to maxline -1
for y =0 to k
debug.prit x * maxLine + y +1 ;
next
debug.print
Next
以上代码输出第一种格式(未测试)