VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
2 _$ ], {1 @" f3 [$ c$ dDim str1 As String
, p2 L. B: j( y: k  ^' Y; M* u" zCommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
5 \6 `' C. a+ y( HEnd Sub
Private Sub Command2_Click()
Dim matlab As Object
Set matlab = CreateObject("Matlab.application")
Clipboard.Clear
matlab.Execute ("n(5)=0;")
# R, H+ G+ {- ^& [5 h6 u, kmatlab.Execute ("str1")
6 w8 Y0 b  j/ G7 Imatlab.Execute ("b=a(:,10);m=length(b);")
matlab.Execute ("for i=1:1:m")
8 U* @, x* c: ~$ xmatlab.Execute ("if abs(b(i))>100")
4 k/ |" e+ D4 g0 `  Rmatlab.Execute ("n(1)=n(1)+1;")
8 x6 r: y) K1 I! ~; z- Cmatlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
, F5 u5 m6 l# O/ omatlab.Execute ("n(2)=n(2)+1;")
' E; T+ y' g6 Lmatlab.Execute ("elseif abs(b(i))>15.8 & abs(b(i))<=50.8")
matlab.Execute ("n(3)=n(3)+1;")
  ?! b% d1 W, N- Q/ Jmatlab.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;")
matlab.Execute ("end")
3 }% q# I) _+ F; V$ ?: Pmatlab.Execute ("end")
2 w% o1 o' V" W( rmatlab.Execute ("set(gcf,'visible','off'),pie(n);legend('100KA 以上','50.8-100KA','15.8-50.8KA','10.1-15.8KA','0-10.1KA',-1);")
7 }: ~- G* s3 t6 amatlab.Execute ("set(gcf,'color','w');print(gcf,'-dmeta')")
Picture1.Picture = Clipboard.GetData()
* q4 a( _  T, j7 ^6 f% IEnd Sub
) T! o, b$ A& e5 D* g! P
' Q& e9 [* o1 A! q
/ t" y2 b2 H) c0 m- X% F5 e# w
求朋友们指点一下，为什么出的图是错的。。

1345389794

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

1345389794

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