Question

VB编程：使用inputbox 函数输入20个整数，保存到一维数组A中，将数组A中各

VB编程：使用inputbox 函数输入20个整数，保存到一维数组A中，将数组A中各元素的值移到后一元素中，而最后一元素的值移到第一个元素中，然后在窗体上按行5个的格式输出。

Answer 1

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