UC知道VB数组题
来源：百度知道 编辑：UC知道 时间：2024/05/29 05:16:49
题目：第一组：3，4，2，1，5，7，8，11，13
第二组：10，6，12，9，13，8，8，1，16
设计一个程序，使用Array函数将上述两组数分别读入两个一维数组A和B中，然后将这两个数组中对应的元素相加，其结果放入第三个数组C中（C也是一维数组），最后输入数组C中的数据。
程序代码如下：
Private Sub Form_Load()
A(1) = 3: A(2) = 4: A(3) = 2: A(4) = 1: A(5) = 5: A(6) = 7: A(7) = 8: A(8) = 11: A(9) = 13
B(1) = 10: B(2) = 6: B(3) = 12: B(4) = 9: B(5) = 13: B(6) = 8: B(7) = 8: B(8) = 1: B(9) = 16
Dim C(n) As Integer
For n = 1 To 9
C(n) = A(n) + B(n)
Print C(n)
Next n
End Sub
运行不了，请问哪里有问题阿？
第二组：10，6，12，9，13，8，8，1，16
设计一个程序，使用Array函数将上述两组数分别读入两个一维数组A和B中，然后将这两个数组中对应的元素相加，其结果放入第三个数组C中（C也是一维数组），最后输入数组C中的数据。
程序代码如下：
Private Sub Form_Load()
A(1) = 3: A(2) = 4: A(3) = 2: A(4) = 1: A(5) = 5: A(6) = 7: A(7) = 8: A(8) = 11: A(9) = 13
B(1) = 10: B(2) = 6: B(3) = 12: B(4) = 9: B(5) = 13: B(6) = 8: B(7) = 8: B(8) = 1: B(9) = 16
Dim C(n) As Integer
For n = 1 To 9
C(n) = A(n) + B(n)
Print C(n)
Next n
End Sub
运行不了，请问哪里有问题阿？
你这里声明数组的时候不能用变量n,你应该这样做：dim c(9) as integer.
so easy!
Private Sub Command1_Click()
Dim c(8)
a = Array(3, 4, 2, 1, 5, 7, 8, 11, 13)
b = Array(10, 6, 12, 9, 13, 8, 8, 1, 16)
For i = 0 To UBound(a)
c(i) = a(i) + b(i)
Print c(i)
Next i
End Sub
Private Sub Form_Load()
AutoRedraw = True
a = Array(3, 4, 2, 1, 5, 7, 8, 11, 13)
b = Array(10, 6, 12, 9, 13, 8, 8, 1, 16)
ReDim c(UBound(a))
For i = 0 To UBound(a)
c(i) = a(i) + b(i)
Print c(i)
Next
End Sub
dim c(9) as interger