VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
Dim str1 As String
CommonDialog1.ShowOpen
8 `6 c, ]( {/ r5 CText1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
End Sub
3 E" ?7 n% ^0 \# i$ [Private Sub Command2_Click()
  H6 i) V( f  x+ n0 W8 ^, cDim matlab As Object
6 [- C7 m$ R& x* O7 @Set matlab = CreateObject("Matlab.application")
6 g5 b8 c7 f- n, M+ F* _' WClipboard.Clear
" f& ]7 W- O- Qmatlab.Execute ("n(5)=0;")
, u7 H3 I7 ~  a$ F$ H/ umatlab.Execute ("str1")
2 R4 v/ O% S4 N0 O8 imatlab.Execute ("b=a(:,10);m=length(b);")
  O# |  A8 q! O% j% dmatlab.Execute ("for i=1:1:m")
matlab.Execute ("if abs(b(i))>100")
: \. k% G' `( z& zmatlab.Execute ("n(1)=n(1)+1;")
matlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
3 c9 r  F+ Z6 |, `% y0 gmatlab.Execute ("n(2)=n(2)+1;")
3 ?5 A* `! c8 }9 `matlab.Execute ("elseif abs(b(i))>15.8 & abs(b(i))<=50.8")
+ j6 b: K9 f6 D" e2 ^matlab.Execute ("n(3)=n(3)+1;")
matlab.Execute ("elseif abs(b(i))>10.1 & abs(b(i))<=15.8")
* g- n' y1 J( D/ M" H" ^' Q: Tmatlab.Execute ("n(4)=n(4)+1;")
$ H6 u; N$ X$ N5 o/ C" {matlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
matlab.Execute ("n(5)=n(5)+1;")
matlab.Execute ("end")
! Y) ?7 ]7 s' o% K0 ^matlab.Execute ("end")
9 s$ e) g! V+ B% o8 Q4 wmatlab.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()
End Sub
+ |; x# i- q) W$ }
" e* o1 a3 b: W6 N

求朋友们指点一下，为什么出的图是错的。。
7 ~+ M* U) |" @3 t

1345389794

好厉害！！！！！！！！！！！！

1345389794

································
+ R5 c4 k. G2 l; n' w