VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
- d0 E, ]0 y3 F+ H9 \Dim str1 As String
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
5 h* }2 U- J3 n% M8 M" I1 d  j4 kstr1 = "a=load('" & Text1.Text & "');"
5 U/ O8 P2 r" X5 i3 J3 iEnd Sub
' p; U4 R* ?/ |$ w5 U3 MPrivate Sub Command2_Click()
Dim matlab As Object
Set matlab = CreateObject("Matlab.application")
Clipboard.Clear
( U' U  w! f# l1 {& X% e6 b5 gmatlab.Execute ("n(5)=0;")
( P- Q- P7 e- D4 k' rmatlab.Execute ("str1")
* Q7 h/ z4 w' }- qmatlab.Execute ("b=a(:,10);m=length(b);")
$ G( C$ @- \' e8 m8 b8 J+ gmatlab.Execute ("for i=1:1:m")
matlab.Execute ("if abs(b(i))>100")
* S# O; Q% G/ l7 ~9 M: u9 |7 }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;")
6 |  |0 |; y) w0 V- n  z$ lmatlab.Execute ("elseif abs(b(i))>10.1 & abs(b(i))<=15.8")
matlab.Execute ("n(4)=n(4)+1;")
' i/ l" ~1 U/ l' U( `matlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
, X+ M0 n' t1 ]# U$ {* nmatlab.Execute ("n(5)=n(5)+1;")
matlab.Execute ("end")
# w6 f& m+ h3 H* ^4 \matlab.Execute ("end")
matlab.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')")
" Q4 O0 c6 T" k9 t- S. C. SPicture1.Picture = Clipboard.GetData()
End Sub
  A' _, O/ V% h' A/ d- p  \


求朋友们指点一下，为什么出的图是错的。。

1345389794

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

1345389794

好厉害！！！！！！！！！！！！
- l) s! M: E9 ?1 P# I9 E