VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
5 `( b& f+ O. o3 G  s: X7 H% \Dim str1 As String
' ?2 k( S+ q) X$ \- A& y: uCommonDialog1.ShowOpen
3 Z* z6 h3 @, C! U" ~) r# HText1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
2 _8 t/ c; c. [7 H0 z5 }8 OEnd Sub
+ Z; A9 {5 y, OPrivate Sub Command2_Click()
) b" h& L0 [8 f9 BDim matlab As Object
# l; \- C6 ^+ Z9 |4 H$ [: ISet matlab = CreateObject("Matlab.application")
" u  B8 F% ~. sClipboard.Clear
matlab.Execute ("n(5)=0;")
matlab.Execute ("str1")
3 E/ R& U! L7 d  I" `. Dmatlab.Execute ("b=a(:,10);m=length(b);")
matlab.Execute ("for i=1:1:m")
matlab.Execute ("if abs(b(i))>100")
matlab.Execute ("n(1)=n(1)+1;")
matlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
matlab.Execute ("n(2)=n(2)+1;")
matlab.Execute ("elseif abs(b(i))>15.8 & abs(b(i))<=50.8")
matlab.Execute ("n(3)=n(3)+1;")
9 h+ j' Q# R/ J7 b$ Rmatlab.Execute ("elseif abs(b(i))>10.1 & abs(b(i))<=15.8")
matlab.Execute ("n(4)=n(4)+1;")
6 z$ ?& p3 V9 C3 n0 Z1 P2 h8 nmatlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
  C6 y9 T- r/ F6 T4 }matlab.Execute ("n(5)=n(5)+1;")
, U, q2 J- |: E/ {4 j; a8 A4 U& Cmatlab.Execute ("end")
matlab.Execute ("end")
$ u1 ^9 P8 X/ M# d5 U1 Kmatlab.Execute ("set(gcf,'visible','off'),pie(n);legend('100KA 以上','50.8-100KA','15.8-50.8KA','10.1-15.8KA','0-10.1KA',-1);")
matlab.Execute ("set(gcf,'color','w');print(gcf,'-dmeta')")
Picture1.Picture = Clipboard.GetData()
7 l7 }) Z! n/ Q- R) B% p! v$ V9 eEnd Sub
5 v) d! q7 _2 c% W4 Y


求朋友们指点一下，为什么出的图是错的。。
/ y; s4 G8 V' j2 ^9 k1 N# u

1345389794

································
  K9 B9 m7 O& U& E

1345389794

好厉害！！！！！！！！！！！！
; V% F" o& ?# U' ?