Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i%, j%
j = Val(InputBox("输入"))
a(i) = j
For i = 1 To 10
For j = 1 To 10
If j < j + 1 Then
a(i) = j: j = j + 1:
End If
Next j
Print a(i)
Next i