UC知道帮忙做两道Visual Basic即(VB)编程题
来源：百度知道 编辑：UC知道 时间：2024/06/25 03:35:37
（1）从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第1个元素与第10个元素互换，第2个元素与第9个元素互换···第5个与第6个元素互换。分别输出数组原来各元素的值和对换后各元素的值和对换后各元素的值
（2）设有如下两组数据：
A:2，8，7，6，4，28，70，25
B:79，27，32，41，57，66，78，80
编写一个程序，把上面两组数据分别读入两组数据中，然后把两个数组中对应下标的元素相加，即2+79，8+27,····25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。
最后求大家帮忙谁有高等教育出版社出版的《全国计算机等级考试 二级教程--Visual Basic 语言程序设计（修订版）》课后练习的编程题的答案
在此我先谢谢大家啦~~~~~~
（2）设有如下两组数据：
A:2，8，7，6，4，28，70，25
B:79，27，32，41，57，66，78，80
编写一个程序，把上面两组数据分别读入两组数据中，然后把两个数组中对应下标的元素相加，即2+79，8+27,····25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。
最后求大家帮忙谁有高等教育出版社出版的《全国计算机等级考试 二级教程--Visual Basic 语言程序设计（修订版）》课后练习的编程题的答案
在此我先谢谢大家啦~~~~~~
Private Sub Command1_Click()
Dim a(10)
Dim i As Integer
Dim tmp As String
For i = 0 To 9
a(i) = InputBox("请输入第" & i + 1 & "个数字")
Next
For i = 0 To 4
tmp = a(i)
a(i) = a(9 - i)
a(9 - i) = tmp
Next
For i = 0 To 9
Print a(i)
Next
End Sub
(2)
Private Sub Command1_Click()
Dim a(8) As Integer
Dim b(8) As Integer
Dim c(8) As Integer
Dim i As Integer
a(0) = 2: a(1) = 8 '给数组赋值
b(0) = 79: b(1) = 27 '给数组赋值
For i = 0 To 7
c(i) = a(i) + b(i)
Next
For i = 0 To 7
Print a(i)
Next
End Sub
如果没有人给你做，+53685550只有晚上在线
如果有人给你做，就不用加了