VB二维数组相加的问题，老是在“＋”处提示类型不匹配，急啊！！！！
Dim H() As SingleDim A() As Single
Dim B() As Single
ReDim H(1 To SampleN, 1 To N + 1)
ReDim A(1 To SampleN, 1 To N + 1)
ReDim B(1 To SampleN, 1 To N + 1)
SampleN＝val(text1.text)
N=val(text2.text)
For j = 2 To SampleN + 1
For i = 2 To N
A = H(j - 1, i - 1) + H(j - 1, i + 1) + c1 * (V(j - 1, i - 1) - V(j - 1, i + 1))
B = -c4 * (V(j - 1, i - 1) * Abs(V(j - 1, i - 1)) + V(j - 1, i + 1) * Abs(V(j - 1, i + 1)))
H(j, i) = 0.5 * (A + B)‘在此“＋”处提示数据类型不匹配！！
目的是要求H(j, i)的值，请高手指点，不胜感谢啊！！！！！！ --------------------编程问答-------------------- 不好意思，再补充一下！！！！
Dim H() As Single
Dim V() As Single
Dim A() As Single
Dim B() As Single
Dim c1 As Single
Dim c4 As Single
ReDim H(1 To SampleN, 1 To N + 1)
ReDim V(1 To SampleN, 1 To N + 1)
ReDim A(1 To SampleN, 1 To N + 1)
ReDim B(1 To SampleN, 1 To N + 1)
SampleN＝val(text1.text)
N=val(text2.text)
For j = 2 To SampleN + 1
For i = 2 To N
A = H(j - 1, i - 1) + H(j - 1, i + 1) + c1 * (V(j - 1, i - 1) - V(j - 1, i + 1))
B = -c4 * (V(j - 1, i - 1) * Abs(V(j - 1, i - 1)) + V(j - 1, i + 1) * Abs(V(j - 1, i + 1)))
H(j, i) = 0.5 * (A + B)‘在此“＋”处提示数据类型不匹配！！
目的是要求H(j, i)的值，请高手指点，不胜感谢啊！！！！！！ --------------------编程问答-------------------- 噢，谁特！ --------------------编程问答-------------------- ab是数组 --------------------编程问答-------------------- 哥们，你不加点分就没人帮啊 --------------------编程问答-------------------- 楼主，去看看数组的定义和使用吧。 --------------------编程问答-------------------- 我刚注册，还没积分。如果解决问题，系统会自动加分的。
衷心希望高手指点，不胜感谢！！！！！！ --------------------编程问答-------------------- 我刚注册，还没积分。如果解决问题，系统会自动加分的。
衷心希望高手指点，不胜感谢！！！！！！ --------------------编程问答-------------------- 你A和B是数组,不能直接相加的
A = H(j - 1, i - 1) + H(j - 1, i + 1) + c1 * (V(j - 1, i - 1) - V(j - 1, i + 1))
B = -c4 * (V(j - 1, i - 1) * Abs(V(j - 1, i - 1)) + V(j - 1, i + 1) * Abs(V(j - 1, i + 1)))
这里也有问题
改一下
Dim H() As Single
Dim A() As Single
Dim B() As Single
dim Ai as Single
dim Bi as Single
ReDim H(1 To SampleN, 1 To N + 1)
ReDim A(1 To SampleN, 1 To N + 1)
ReDim B(1 To SampleN, 1 To N + 1)
SampleN＝val(text1.text)
N=val(text2.text)
For j = 2 To SampleN + 1
For i = 2 To N
Ai = H(j - 1, i - 1) + H(j - 1, i + 1) + c1 * (V(j - 1, i - 1) - V(j - 1, i + 1))
Bi = -c4 * (V(j - 1, i - 1) * Abs(V(j - 1, i - 1)) + V(j - 1, i + 1) * Abs(V(j - 1, i + 1)))
H(j, i) = 0.5 * (Ai + Bi)
--------------------编程问答-------------------- 你的 A、B 是数组，数组怎么能直接相加啊？
A + B 是不合法的表达式！
--------------------编程问答-------------------- a,b是数组没办法直接相加
a(i)+B(i)这样可以 --------------------编程问答--------------------
是这样。 --------------------编程问答-------------------- 我已按各位大侠意见改为如下：
Dim H() As Single
Dim V() As Single
Dim A() As Single
Dim B() As Single
dim Ai as Single
dim Bi as Single
Dim c1 As Single
Dim c4 As Single
ReDim H(1 To SampleN, 1 To N + 1)
ReDim V(1 To SampleN, 1 To N + 1)
ReDim A(1 To SampleN, 1 To N + 1)
ReDim B(1 To SampleN, 1 To N + 1)
SampleN＝val(text1.text)
N=val(text2.text)
For j = 2 To SampleN + 1
For i = 2 To N
Ai = H(j - 1, i - 1) + H(j - 1, i + 1) + c1 * (V(j - 1, i - 1) - V(j - 1, i + 1))
Bi = -c4 * (V(j - 1, i - 1) * Abs(V(j - 1, i - 1)) + V(j - 1, i + 1) * Abs(V(j - 1, i + 1)))
H(j, i) = 0.5 * (Ai + Bi)
“类型不匹配”错误提示已解决，但上句“Ai＝H(j - 1, i - 1) + H(j - 1, i + 1) + c1 * (V(j - 1, i - 1) - V(j - 1, i + 1)) ”处出现“下标越界”错误提示，不知为何？？？检查多遍始终不知为何？还请各位大虾给认真分析一下，多谢啊！！！！！！！
--------------------编程问答-------------------- 单个提取，
H(j - 1, i - 1)
H(j - 1, i + 1)
(V(j - 1, i - 1)
V(j - 1, i + 1))
看看那个越界了。 --------------------编程问答-------------------- SampleN＝val(text1.text)
N=val(text2.text)
ReDim H(1 To SampleN, 1 To N + 1)
ReDim V(1 To SampleN, 1 To N + 1)
ReDim A(1 To SampleN, 1 To N + 1)
ReDim B(1 To SampleN, 1 To N + 1)
--------------------编程问答-------------------- --------------------编程问答-------------------- 别着急，好好看看你的程序数组有这样(Ai)用的吗?
哦！卖糕的！！ --------------------编程问答-------------------- A和B都是数组名,你让程序怎么加? --------------------编程问答-------------------- 我看楼主没听明白clear_zero意思嘛 --------------------编程问答-------------------- 顶！我都想学！
补充：VB , 基础类
