Private Sub Command1_Click()
Dim a(9) as integer, t as integer,i as byte
For i= 1 to 10
a(i-1)=int(inputbox("第"+cstr(i)+"个元素")
Next i
For i=1 to 10
Print "原始第"&cstr(i)&"个元素:"&cstr(a(i-1))
Next i
For i=1 to 5
t=a(i-1)
a(i-1)=a(10-i)
a(10-i)=t
Next i
For i=1 to 10
Print "当前第"&cstr(i)&"个元素:"&cstr(a(i-1))
Next i
End Sub