VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
Dim str1 As String
CommonDialog1.ShowOpen
4 X$ f/ x+ ]9 H8 |# m4 N! pText1.Text = CommonDialog1.FileName
) N1 Z; X' N& n/ h5 u% Y2 M: [6 Sstr1 = "a=load('" & Text1.Text & "');"
End Sub
; G1 j* G3 c# i. JPrivate Sub Command2_Click()
Dim matlab As Object
Set matlab = CreateObject("Matlab.application")
Clipboard.Clear
matlab.Execute ("n(5)=0;")
matlab.Execute ("str1")
2 J, I6 n) z* V- Omatlab.Execute ("b=a(:,10);m=length(b);")
! j' C6 }5 k% r! Pmatlab.Execute ("for i=1:1:m")
  P* Q$ \7 n; L1 a4 f* U- @) V+ s) ]! ematlab.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")
; t2 u5 @: G8 Y' o% p9 I$ amatlab.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;")
, L( ?/ y, J# I$ ^/ h# i& lmatlab.Execute ("elseif abs(b(i))>10.1 & abs(b(i))<=15.8")
matlab.Execute ("n(4)=n(4)+1;")
' D, N1 G9 C/ p; gmatlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
matlab.Execute ("n(5)=n(5)+1;")
$ E& M: n& h5 d5 m4 S" G  g2 Gmatlab.Execute ("end")
matlab.Execute ("end")
" Z, q$ B9 a% _) I0 Zmatlab.Execute ("set(gcf,'visible','off'),pie(n);legend('100KA 以上','50.8-100KA','15.8-50.8KA','10.1-15.8KA','0-10.1KA',-1);")
! I( q; A& |# s% Y0 \matlab.Execute ("set(gcf,'color','w');print(gcf,'-dmeta')")
) q& U: B' V  |* F0 X* x, `! t# UPicture1.Picture = Clipboard.GetData()
End Sub
1 c0 ^  |3 R9 v  y2 [6 }5 q


求朋友们指点一下，为什么出的图是错的。。
) v1 H- A" U4 ]6 p. Y

1345389794

································

1345389794

好厉害！！！！！！！！！！！！
( w+ G# o9 L9 H+ k! R