代码行大概有200多行,压缩包里有两个不同的编法的程序。部分代码如下: '判断是否存在全为0的列 flag=True ForyAsInteger=0Toj ForxAsInteger=0Toi Ifvalue(x,y)0Then'如果存在一个非零值,则终止本行判断,继续下一行的判断 flag=False ExitFor EndIf