求一道VB 题目 !!!! 急求

来源：百度知道 编辑：UC知道 时间：2024/05/29 23:46:07
某数组有20个元素，元素的值由键盘输入，要求将前10个元素与后10个元素对换，即第1个元素与第20个元素互换，第2个元素与第19个元素互换，….，第10个元素与第11个元素互换。输出数组原来各元素的值和对换后个元素的值 提示：定义一个具有20个元素的数组a（1 To 20），首先对其赋值，可利用For循环对这20个元素依次进行键盘输入。然后按此顺序输出，即为互换前各元素的值。进行互换操作时，按要求将前10个元素与后10个元素进行互换，方法是将a（1）与a（20-i+1）互换。最后输出各元素的值

按照你的意思，相当于把数组按正序和反序分别输出。编写程序如下：
dim A(1 to 20) as integer,i as integer
for i=1 to 20
a(i)=inputbox("请输入第"+str(i)+"个数：")
next i
for i=1 to 20
print a(i);
next i
print
for i=20 to 1 step -1
print a(i);
next i
print

Private Sub Form_Click()
Dim a(1 To 20)
For i = 1 To 20
a(i) = Val(InputBox(""))
Next i
Print "原来的数组是:"
For i = 1 To 20
Print a(i);
Next i

For i = 0 To 9
t = a(i + 1): a(i + 1) = a(20 - i): a(20 - i) = t
Next i
Print
Print "调换后的数组是:"
For i = 1 To 20
Print a(i);
Next i
End Sub

你怎么问两遍???

先用个循环
for i=1 to 10
temp=a(i) 'temp为临时变量，需要自己定义的
a(i)=a(20-i+1)
a(20-i+1)=temp
next
然后print a(1 to 20)

太难了 估计等我博士毕业才能解决

影子老爷的回答完全正确

这是啥？这是啥？