UC知道一道VB编程题跪求高手帮忙
来源：百度知道 编辑：UC知道 时间：2024/05/15 23:44:07
Option Base 1
Private Sub Form_Click()
Dim a() As Variant
Dim b() As Variant
Dim 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
我是新手，请大家帮帮忙，为什么程序运行后会显示下标越界，怎样修改
Private Sub Form_Click()
Dim a() As Variant
Dim b() As Variant
Dim 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
我是新手，请大家帮帮忙，为什么程序运行后会显示下标越界，怎样修改
Dim a() As Variant
Dim b() As Variant
Dim c() As Variant
Dim i
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
ReDim Preserve c(i)'这里加一句，因为你的c数组大小未确定，所以才越界
c(i) = a(i) + b(i)
Print c(i);
Next i
Private Sub Form_Click()
Dim a() As Variant
Dim b() As Variant
Dim 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(8)
For i = 0 To 7
c(i + 1) = a(i) + b(i)
Print c(i);
Next i
End Sub