vb题目,帮忙解答一下

来源:百度知道 编辑:UC知道 时间:2024/06/21 19:53:02
某数组又是个元素,元素的值由键盘输入,要求前五个元素与后五个元素对换。即第一个与第十个对换,第二个与第九个对换。。。第十个与第一个对换。输出数组原来各元素的值和对换后各元素的值。

dim a(9),b(i)
for i=0 to 9
b(i)=b(9-i)
next i
for i=0 to 9
a(i)=b(i)
next i

dim a(10)
dim t
'输出原来的数组
for i=1 to 10
response.write(a(i)&"--")
next
response.write("<br>")
'交换数据
for i=1 to 5
t=a(i)
a(i)=a(11-i)
a(11-i)=t
next
'输出交换后的数组
for i=1 to 10
response.write(a(i)&"--")
next

函数声明 千万别用变量 dim…… 会溢出的