1. 你用到的B1,C1数组并未声明,这样是不能直接使用的。 事实上编译都通不过,显示错误是“编译错误——子函数或函数不存在”
2. 你前面声明的A1()等数组并未确定维数,后面直接用在N*N的循环中,且变成了二维数组。也会报错。应该是“下限越界”。你的代码可以看出这个一开始就可以确定维数和上限,直接定义即可。如果是在是无法在开始确定的话可以使用redim,其代码请自行搜索学习。
上面两个错误都有明确的错误信息,而不是“程序错误”。如果你确实只是报“程序错误”,估计还有其他的错误,你代码没有给全。
如果已经解决了你的问题,对你提一点批评和意见
1.来提问的时候请准确把报错信息描述出来,如果有代码,请把代码放上来而不是截图。要是问题或者代码复杂,别人还需要敲代码来测试。
2.VB虽然对语法的要求较为宽松,但是并不是没有要求。你犯的错误应该说是很基础的,教材上数组部分应该都提到了的。把教程翻出来好好的学习一下,基础扎实了也给自己少点麻烦。