VB6需要一些循环帮助

Question

我试图将源代码从C++转换为vb6:

C++:

static double mdArray[3][3];
static double mdArray2[3][3];

for (i = 0; i < 3; i++)
for (j = 0; j < 3; j++)
{
  double sum = 0;

  for(k = 0; k < 3; k++)
  sum = sum + mdArray[k][i] * mdArray[k][k];

  mdArray2[i][j] = sum
} 

VB6:

dim mdArray(0 to 2, 0 to 2) as integer
dim mdArray2(0 to 2, 0 to 2) as integer

for i = 0 to 2
for j = 0 to 2

dim a as double
sum = 0

  for k = 0 to 2 
  sum = sum + mdArray(k,i) * mdArray(k,j)

  mdArray2(i,j) = sum
  Next

Next
Next

vb6版本会产生与C++版本相同的结果吗？谢谢.

Answer 1

你有没有尝试过吗？这是我能发现的错误:

1. 您使用错误的数据类型声明数组
2. 你是在宣布a而不是sum出于某些原因
3. 你有mdArray(k, j)而不是mdArray(k, k)
4. 你最内心的Next陈述应该在之前mdArray2(i,j) = sum,而不是之后.