求助，为什么运行的时候会出现缺少数组或用户定义类型

是在那一行出错了呢

因为没有吧

明明是类型不匹配这么重要的错误描述你居然不说出来
你的数组c定义的是Single类型，但是函数参数SZtmp却是Variant类型数组，当然类型不匹配了
修改方法：简单的方法当然是把SZtmp也定义成Single数组，还有个偏门方法把SZtmp后面的括号去掉也行，即把参数定义成Variant型【单变量】而非【数组】，这样由于Variant型变量的值可以是数组，就不会出错了，而且还有一个好处，就是实参的数组类型可以没有限制了