注册 登录
编程论坛 VB6论坛

新手小白求教,二维数组相乘只有第一项,其余项为零

小麦哥 发布于 2018-04-28 11:41, 1662 次点击
Public Function DEWL(ByRef E#(), L(), AE()) As Double
Dim i%, j%,  ABC#(21, 21)
For i = 1 To 21
 For j = 1 To 21
  ABC(i, j) = (AE(i) * AE(j)) ^ (1 / 2)
   E(i, j) = (ABC(i, j)) * L(i, j)
   Next j
  Next i
End Function
只有本站会员才能查看附件,请 登录
2 回复
#2
ZHRXJR2018-04-28 18:46
看不到AE(i) 与 AE(j) 赋值,如果有一个没有赋值,当然是0了。
#3
小麦哥2018-05-02 09:39
回复 2楼 ZHRXJR
前面有赋值的,通过Array()赋值
1