VB程序，分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数，我的程序如下，哪里出错了？

j)
If a(i, j) Mod 7 = 0 Then
n1 = n1 + 1
End If
Next j
Next i
For i = 2 To 6
For j = 2 To 6
s2 = s2 + a(i.Caption = s1 - s2
lblFirstFor i = 1 To 7
For j = 1 To 7
s1 = s1 + a(i, j) Mod 7 = 0 Then
n2 = n2 + 1
End If
Next j
Next i
lblSecond, j)
If a(i

没错呀，事先给二维数组a赋好值即可

代码没有错！看看变量的类型，是否与数据数据一致了？

应该给数组赋值和n1,n2赋初值0，

你的提问不能超过100字，神仙也没办法

Visual Studio 2003以上版本你用的VB版本是什么，即for i=1 to 7，数组的下标是从0开始的、for j=1 to 7这两条语句应改为for i=0 to 6