急求！vb编程，题目:用双重循环语句打印出1～80的个数（10行 8列）

急求！vb编程，题目:用双重循环语句打印出1～80的个数（10行 8列）

Option Explicit
Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long
Dim S As String

For i = 0 To 9
For j = 1 To 8
k = i * 8 + j
S = S & CStr(k) & Chr(9)
Next j
S = S & vbCrLf
Next i
Print S
End Sub追问提示编辑错误啊！ 提示，for 没有 next追答'你的VB是什么版本的？这样试试
Option Explicit
Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long
Dim S As String

For i = 0 To 9
For j = 1 To 8
k = i * 8 + j
S = S & CStr(k) & Chr(9)
Next
S = S & vbCrLf
Next
Print S
End Sub追问6.0的追答不会吧，我也是在VB6下试的，可以啊追问6.0的

Dim i, j, num
num = 1
For i = 1 To 10
For j = 1 To 8
Print num;
num = num + 1
Next j
Print Chr(13);
Next i