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

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

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息