Private Sub Command1_Click()
Dim Q1, Q2, Q3, Q4, Q5, Q6, Q7, Q8, Q9, Q10, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10 As Single
Dim x, y As Matrix
Dim X1, Y1, b, ax As Variant

Picture1.Cls '清除窗体内图形
ScaleMode = 1
ax = vbaxes(Picture1.hWnd) '指定下面绘图语句的绘图窗口
x = CreateMatrix(Q1, Q2, Q3, Q4, Q5, Q6, Q7, Q8, Q9, Q10) '构造矩阵
y = CreateMatrix(P1, P2, P3, P4, P5, P6, P7, P8, P9, P10)
b = polyfit(x, y, 2) '用向量x,y拟合2次多项式
X1 = linspace(0, 200, 100)
Y1 = polyval(b, X1)
Call plot(x, y, "*", X1, Y1)
Title ("矿用风机性能曲线")
xlable ("流量Q")
ylable ("压力P")
End Sub
以上是程序代码，运行时提示：函数或子程序未定义。中间空行处是从access中调用Q和P的值的代码，省略。请朋友们帮忙看看，是变量定义错误，还是哪个地方我做错了。谢谢。

请朋友们帮忙，看看是哪个地方出错。非常感谢。

应该是直接调用
x = CreateMatrix(Q1, Q2, Q3, Q4, Q5, Q6, Q7, Q8, Q9, Q10) '构造矩阵
y = CreateMatrix(P1, P2, P3, P4, P5, P6, P7, P8, P9, P10)
b = polyfit(x, y, 2) '用向量x,y拟合2次多项式
时出错，调用polyfit(x, y, 2)应写为call polyfit(x, y, 2)，并且已编好polyfit，上面的怎么调用就不清楚了。