作业帮 > 综合 > 作业

输入一个自然数n,在窗体打印由1到n组成的

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/07 09:42:52
输入一个自然数n,在窗体打印由1到n组成的
1234
2341
3412
4123
1357
3517
5713
7135
大神们帮我把
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 Su