UC知道高手帮忙做两道简单VB题
来源：百度知道 编辑：UC知道 时间：2024/05/25 16:55:08
1.
从键盘上输入10个整数，并放如一堆数组中，然后将其前5个元素与后5个元素对换，即第一个元素与第10个元素互换，第2个元素与第9个元素互换......第5个元素与第6个元素互换。分别输出数组原来各元素的值和对换后个元素的值。
2.
设有如下2组数据：
A：2， 8， 7， 6， 4， 28，70，25
B：79，27，32，41，57，66，78，80
编写一个程序，把上面两组数据分别读入2个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，...，25+80，并把相应的结果放入第三个数组中，最后输出第3个数组的值.
我妹妹要用的 很着急 有高手就帮帮忙啊 谢谢!
从键盘上输入10个整数，并放如一堆数组中，然后将其前5个元素与后5个元素对换，即第一个元素与第10个元素互换，第2个元素与第9个元素互换......第5个元素与第6个元素互换。分别输出数组原来各元素的值和对换后个元素的值。
2.
设有如下2组数据：
A：2， 8， 7， 6， 4， 28，70，25
B：79，27，32，41，57，66，78，80
编写一个程序，把上面两组数据分别读入2个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，...，25+80，并把相应的结果放入第三个数组中，最后输出第3个数组的值.
我妹妹要用的 很着急 有高手就帮帮忙啊 谢谢!
1.
dim a(10) as integer
dim b as integer
dim str1,str2 as string
for i=1 to 10
a(i)=inputbox("请输入一个数")
str1=str1+str(a(i))
next
for i=1 to 5
b=a(i)
a(i)=a(11-i)
a(11-i)=b
next
for i=1 to 10
str2=str2+str(a(i))
next
msgbox(str1)
msgbox(str2)
2.
dim a(8),b(8),c(8)as integer
dim str1 as string
a(1)=2
a(2)=8
a(3)=7
a(4)=6
a(5)=4
a(6)=28
a(7)=70
a(8)=25
b(1)=79
b(2)=27
b(3)=32
b(4)=41
b(5)=57
b(6)=66
b(7)=78
b(8)=80
for i=1 to 8
c(i)=a(i)+b(i)
str1=str1+str(c(i))
next i
msgbox(str1)
我的qq：1564992 有不懂的就来问我吧
我来认真地回答
分要给我
如果有错也是很小的错误（我没用VB调试，但是算法应该没错）
1.
sub gc1
dim a(9) as integer
dim b(9) as integer
dim i as integer
for i=1 to 10
a(i-1)=val(inputbox("输入框提示内容","输入框标题","输入框默认值（