VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
Dim str1 As String
$ L9 ?4 x* m+ w7 a# wCommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
' j; X. a- `& k% j! a. w' a& I' Qstr1 = "a=load('" & Text1.Text & "');"
End Sub
1 j6 g% |  ?; \Private Sub Command2_Click()
Dim matlab As Object
Set matlab = CreateObject("Matlab.application")
Clipboard.Clear
matlab.Execute ("n(5)=0;")
matlab.Execute ("str1")
matlab.Execute ("b=a(:,10);m=length(b);")
matlab.Execute ("for i=1:1:m")
7 Z+ [0 u9 }8 r% q# s" Nmatlab.Execute ("if abs(b(i))>100")
- T$ e' ?# I" V/ ~2 S. u; p7 Smatlab.Execute ("n(1)=n(1)+1;")
2 S# ?4 d% H$ {% }6 p' O- ^" o$ gmatlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
) x0 w$ ?/ w4 ?+ i: f: Fmatlab.Execute ("n(2)=n(2)+1;")
% Q3 W  v( w, \7 Q* |: nmatlab.Execute ("elseif abs(b(i))>15.8 & abs(b(i))<=50.8")
2 O) E9 F4 ]$ v: vmatlab.Execute ("n(3)=n(3)+1;")
! ~$ R6 ^  t4 J- Nmatlab.Execute ("elseif abs(b(i))>10.1 & abs(b(i))<=15.8")
matlab.Execute ("n(4)=n(4)+1;")
matlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
5 i- p& O2 N; [( v6 [- Hmatlab.Execute ("n(5)=n(5)+1;")
matlab.Execute ("end")
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')")
( ]  [: b. h! l5 `% ]2 h# hPicture1.Picture = Clipboard.GetData()
7 p- s/ b" H% I& TEnd Sub
/ ]8 D" F# B" i. @0 i
. X% s" w( M( |8 Z$ v" g$ x! M0 C: e

求朋友们指点一下，为什么出的图是错的。。
+ g4 ^& g; P/ U. o; J. o6 J

1345389794

································
7 ^4 F5 w7 a. b  a5 Y+ x8 X" f9 s

1345389794

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