Question

vb上的问题

vb上的问题谢谢了

Answer 1

Private Sub Command1_Click()
 Dim i As Integer, j As Integer
 Dim s1 As String, s2 As String
 Dim n As Integer
 n = Val(InputBox("input N", , 8))
 
 For i = 1 To n
  For j = 1 To 9
    s1 = s1 & Str(j)
    If Len(s1) = 16 Then
       s1 = s1 & vbCrLf
       s2 = s2 & s1
       s1 = ""
       If i = n Then GoTo Prt
    End If
  Next
 Next
Prt:
 Print s2
 
End Sub