按格式输出。。。

Question

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按上面二种输出。数据。。不知道怎么用循环。：（

Answer 1

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"

Answer 2

Cost max =100
cost Maxline = 33
dim x as long,y as long 
dim k as long 
k= Max \ MaxLinefor x =0 to maxline -1
  for y =0 to k
    debug.prit x * maxLine + y +1 ;
  next 
  debug.print
Next
以上代码输出第一种格式(未测试)

Answer 3

debug.prit Y * maxLine + X +1 ;修正一下 ^_^