vb程序出现类型不匹配：缺少数组或用户定义类型 错误，求解

col = max(a(), r, mm)应为col = max(a, r, mm)

另宴毕衫外unound 应为 ubound

优化：Function max(b() As Single, r As Integer, m As Integer)，m可以不晌腔需要，因为m的值并不需要由外部传入，而是由b()决定的，只需要在function内部定义m即数则可

你要参考别人VB的程序,关键二点要有

一,你的VB版本必须与别人的一致(VB各个版本间衫局是有些不兼容的)

如你上面的程序,在VB6中肯定不能用,因为VB6

的Command_Click不能有参数的

二.你的界面设计,必须或颂让与参考程序完全一致

也就是你的Command.Text等控樱宴件及其名称,必须与程序一致的

这是肯定的啊，你看：启桐闭

Dim a As Single 这里，a已经定义为Single(单轮隐精度浮点型)

那我们再看，悄裂Text1控件里的内容肯定是String(字符类型)的，那么好了：

a = Text1.Text

这里，你要让单精度浮点型的值从字符类型里获取，肯定是类型不符合啊！

你要转换一下类型才行：

a = Val(Text1.Text)

b = Val(Text3.Text)

---