vb操作题 改错:设有如下两组数据A:2,8,7,6,4,28,70,25B:79,27,32,41,57,66,78,80编写一个程序,把上面两组数据分别赌如两个数组中,然后把两个数组中对应下表的元素相加,并把相应的结果放入第三个
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 02:31:06
![vb操作题 改错:设有如下两组数据A:2,8,7,6,4,28,70,25B:79,27,32,41,57,66,78,80编写一个程序,把上面两组数据分别赌如两个数组中,然后把两个数组中对应下表的元素相加,并把相应的结果放入第三个](/uploads/image/z/12177215-71-5.jpg?t=vb%E6%93%8D%E4%BD%9C%E9%A2%98+%E6%94%B9%E9%94%99%EF%BC%9A%E8%AE%BE%E6%9C%89%E5%A6%82%E4%B8%8B%E4%B8%A4%E7%BB%84%E6%95%B0%E6%8D%AEA%EF%BC%9A2%2C8%2C7%2C6%2C4%2C28%2C70%2C25B%EF%BC%9A79%2C27%2C32%2C41%2C57%2C66%2C78%2C80%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8F%2C%E6%8A%8A%E4%B8%8A%E9%9D%A2%E4%B8%A4%E7%BB%84%E6%95%B0%E6%8D%AE%E5%88%86%E5%88%AB%E8%B5%8C%E5%A6%82%E4%B8%A4%E4%B8%AA%E6%95%B0%E7%BB%84%E4%B8%AD%2C%E7%84%B6%E5%90%8E%E6%8A%8A%E4%B8%A4%E4%B8%AA%E6%95%B0%E7%BB%84%E4%B8%AD%E5%AF%B9%E5%BA%94%E4%B8%8B%E8%A1%A8%E7%9A%84%E5%85%83%E7%B4%A0%E7%9B%B8%E5%8A%A0%2C%E5%B9%B6%E6%8A%8A%E7%9B%B8%E5%BA%94%E7%9A%84%E7%BB%93%E6%9E%9C%E6%94%BE%E5%85%A5%E7%AC%AC%E4%B8%89%E4%B8%AA)
vb操作题 改错:设有如下两组数据A:2,8,7,6,4,28,70,25B:79,27,32,41,57,66,78,80编写一个程序,把上面两组数据分别赌如两个数组中,然后把两个数组中对应下表的元素相加,并把相应的结果放入第三个
vb操作题 改错:设有如下两组数据
A:2,8,7,6,4,28,70,25
B:79,27,32,41,57,66,78,80
编写一个程序,把上面两组数据分别赌如两个数组中,然后把两个数组中对应下表的元素相加,并把相应的结果放入第三个数组中,最后输出第三个数组的值.
我编写的程序:
Option Base 1
Private Sub Form_click()
Dim a() As Variant,b() As Variant,c() As Variant
a = Array(2,8,7,6,4,28,70,25)
b = Array(79,27,32,41,57,66,78,80)
For i = 1 To 8
c(i) = a(i) + b(i)
Print c(i);
Next i
End Sub
运行之后提示“跨界”
vb操作题 改错:设有如下两组数据A:2,8,7,6,4,28,70,25B:79,27,32,41,57,66,78,80编写一个程序,把上面两组数据分别赌如两个数组中,然后把两个数组中对应下表的元素相加,并把相应的结果放入第三个
Option Base 1
Private Sub Form_click()
Dim a() As Variant, b() As Variant, c() As Variant
a = Array(2, 8, 7, 6, 4, 28, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 78, 80)
ReDim c(1 To 8)
For i = 1 To 8
c(i) = a(i) + b(i)
Print c(i);
Next i
End Sub
你开始的定义是动态数组,在用array时,a和b两个数组都从新定义了,但是c数组没有定义大小,所以提示跨界!