Dim i As Integer, a As Integer, cj As Integer, str As String a = 1 For i = 0 To 100 Step 10 For a = a To i str = str & " " & CStr(a )Next a Print str str = "" cj = a Next i
这个才是正确的 Dim i As Integer, a As Integer, cj As Integer, str As String a = 1 For i = 0 To 100 Step 10 For a = a To i str = str & " " & CStr(a) Next a Print str str = "" cj = a Next i