这是怎么回事啊

1. 你用到的B1，C1数组并未声明，这样是不能直接使用的。 事实上编译都通不过，显示错误是“编译错误——子函数或函数不存在”
2. 你前面声明的A1()等数组并未确定维数，后面直接用在N*N的循环中，且变成了二维数组。也会报错。应该是“下限越界”。你的代码可以看出这个一开始就可以确定维数和上限，直接定义即可。如果是在是无法在开始确定的话可以使用redim，其代码请自行搜索学习。

上面两个错误都有明确的错误信息，而不是“程序错误”。如果你确实只是报“程序错误”，估计还有其他的错误，你代码没有给全。
如果已经解决了你的问题，对你提一点批评和意见
1.来提问的时候请准确把报错信息描述出来，如果有代码，请把代码放上来而不是截图。要是问题或者代码复杂，别人还需要敲代码来测试。
2.VB虽然对语法的要求较为宽松，但是并不是没有要求。你犯的错误应该说是很基础的，教材上数组部分应该都提到了的。把教程翻出来好好的学习一下，基础扎实了也给自己少点麻烦。

定义的 A(),B(),C(),R(),U(),A1(),X() 是动态数组，没有上下标，在使用时需要设置上下标。
B1()、C1() 数组没有定义，没有定义的数组是不能使用的。
你的这段程序问题比较多，而且比较明显，好好检查一下就会发现的。