VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
Dim str1 As String
, W& k$ S  C4 f9 P- G% ]7 T) b) WCommonDialog1.ShowOpen
/ R: P% _) m0 v: N1 dText1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
End Sub
Private Sub Command2_Click()
Dim matlab As Object
6 j( [3 s- Q6 D6 A+ x" f! L. pSet matlab = CreateObject("Matlab.application")
Clipboard.Clear
* g$ G6 W8 Z% n3 o$ smatlab.Execute ("n(5)=0;")
- m6 p4 N8 a/ D" Lmatlab.Execute ("str1")
matlab.Execute ("b=a(:,10);m=length(b);")
  X' F% G. w, P; f+ Q* D" ?matlab.Execute ("for i=1:1:m")
$ C9 B/ b/ }* j$ cmatlab.Execute ("if abs(b(i))>100")
$ }7 y, b4 T% c) Mmatlab.Execute ("n(1)=n(1)+1;")
matlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
0 p8 V  P1 A. ematlab.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;")
matlab.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")
matlab.Execute ("n(5)=n(5)+1;")
# z" C: P( }, n, U4 X, qmatlab.Execute ("end")
; m, k3 J0 p" a3 Nmatlab.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);")
$ B6 {1 u( k9 _7 a+ e0 Umatlab.Execute ("set(gcf,'color','w');print(gcf,'-dmeta')")
Picture1.Picture = Clipboard.GetData()
End Sub



求朋友们指点一下，为什么出的图是错的。。
) p( Y0 W; X, k  L/ H/ {

1345389794

································
; _0 F0 {+ A2 i9 G

1345389794

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