请求用vb把二次多项式^y = a0 + a1 x + a2 x^2 ,按以下方法计算出来

Question

其中
a0 =1/k[ ( b2* b4 - b3^2)* c1 + ( b2* b3 - b1 *b4) *c2 +( b1 *b3 - b2^2) c3 ] ,
a1 =1/k[ ( b2 *b3 - b1 *b4)* c1 + + ( n*b4 - b2^2) *c2 +( b1 *b2 - n*b3) c3) ] 
a2 =1/k[ ( b1* b3 - b2^2)* c1 + ( b1 *b2 - nb3) *c2 +( n*b2 - b1^2) c3 ] 
其中k=n*b2* b4 +2*b1* b2 *b3 - n*b3^2- b1^2*b4 - b2^3
      b1 =Σx i ，b2 =Σxi^2  ，b3 =Σxi^3  ，b4 =Σxi^4
      c1 =Σyi  ，c2 =Σxi*yi  ，c3 =Σxi^2 *yi
     i=1 to n

Answer 1

先计算出各个条件，从下向上写，比如
dim x(n+1)
b1=0
b2=0
For i=1 to n
 b1=b1+x(i)
 b2=b2+x(i)^2
.....
next i
k=n*b2* b4 +2*b1* b2 *b3 - n*b3^2- b1^2*b4 - b2^3
a0 =1/k[ ( b2* b4 - b3^2)* c1 + ( b2* b3 - b1 *b4) *c2 +( b1 *b3 - b2^2) c3 ] ,
a1 =1/k[ ( b2 *b3 - b1 *b4)* c1 + + ( n*b4 - b2^2) *c2 +( b1 *b2 - n*b3) c3) ]  
a2 =1/k[ ( b1* b3 - b2^2)* c1 + ( b1 *b2 - nb3) *c2 +( n*b2 - b1^2) c3 ]  

Answer 2

是啊，很急的，我知道这个理论，可是vb没用过，具体的例如在vb上点打开文件，把数据读入，点击拟合，把下面的式子用曲线显示，这个不会啊