Question

VB问题。输入一个自然数n，在窗体打印由1到n组成的

1234
2341
3412
4123
1357
3517
5713
7135
大神们帮我把
我会加分的

Answer 1

Private Sub Command1_Click()
Dim temarr(500) As String
Dim i As Integer
Dim Temstr As String
Dim j As Integer
Dim temPos As String
Temstr = InputBox("输入一个自然数", "1234")
If Temstr <> "" Then
For i = 1 To Len(Temstr)
temarr(i - 1) = Mid(Temstr, i, 1)
Next
End If
For i = 0 To Len(Temstr) - 1

For j = 1 To Len(Temstr)
If temPos = "" Then
temPos = temarr(i)
Else
temPos = temPos + temarr((i + j - 1) Mod Len(Temstr))
End If
Next
Debug.Print temPos
Print temPos
temPos = ""
Next

End Sub

Answer 2

组成的什么啊