Private Sub Command1_Click()
Dim a(20) As Integer
For i = 1 To 20
a(i) = InputBox("第" & i & "个数：")
Next i
x = a(20)
For i = 20 To 2 Step -1
a(i) = a(i - 1)
Next i
a(1) = x
For i = 1 To 20
Print a(i),
If i Mod 5 = 0 Then Print
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024