13问答网 > 题从键盘中输入10个整数,并放入一个一维数组中,然后将其前5个元素与后

题从键盘中输入10个整数,并放入一个一维数组中,然后将其前5个元素与后

2025-02-23 05:39:44

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim A(10) As Long,I As Long
For I = 1 To 10
A(I) = InputBox("请输入第" & I & "个数据","提示","")
Print A(I),
Next
Print
For I = 1 To 5 '5是因为元素个数\2
A(0) = A(I)
A(I) = A(11 - I) '11是元素个数+1
A(11 - I) = A(0)
Next
For I = 1 To 10
Print A(I),
Next
End Sub

题 从键盘中输入10个整数,并放入一个一维数组中,然后将其前5个元素与后

题从键盘中输入10个整数,并放入一个一维数组中,然后将其前5个元素与后