VB中二维数组的相加问题，老是提示类型不匹配，急啊！！！

来源：百度知道编辑：UC知道时间：2024/05/11 18:43:45

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)的值，请高手指点，不胜感谢啊！！！！！！
补充一下：
Dim SampleN as integer
Dim N as integer
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 Samp

参考答案　　借问美女何处有

感觉这段代码可能不正常，一开始的时候没有声明SampleN和N但是却用在声明数组上了，后面的给A赋值A是一个数组，不能这样赋值吧。代码还是写清楚点再补充一下吧。

感觉ReDim H(1 To SampleN, 1 To N + 1)之前并没有对SampleN进行负值啊，后面的A（）数组赋值也不是这样吧。

ReDim H(1 To SampleN, 1 To N + 1)
这个时侯 SampleN 没有赋值，就是 0 吧

VB中二维数组传递的问题 vb 二维数组的问题 vb的二维数组 vb 二维数组的使用问题 vc中二维数组的初始化问题二维数组的问题 VB中数组的问题 C语言中二维数组中指针的问题 java 二维数组的问题关于二维数组的问题