VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
4 x+ w; [! y6 C) }6 wDim str1 As String
! H4 x2 V) @/ g0 UCommonDialog1.ShowOpen
; R( _; h& q$ q/ v. l8 j* a8 ~: JText1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
3 u4 C4 y  i: C) ~# F; o( UEnd Sub
Private Sub Command2_Click()
Dim matlab As Object
Set matlab = CreateObject("Matlab.application")
Clipboard.Clear
) v9 K3 v  r! j) z: nmatlab.Execute ("n(5)=0;")
matlab.Execute ("str1")
4 `# S) S% w) o! \* Mmatlab.Execute ("b=a(:,10);m=length(b);")
5 @2 G3 g; J/ W# _matlab.Execute ("for i=1:1:m")
, z! Q' L- G; G' r" ]matlab.Execute ("if abs(b(i))>100")
( C, T' z$ W3 @matlab.Execute ("n(1)=n(1)+1;")
! V# O1 {; f) B" [/ Y8 j( b$ Cmatlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
matlab.Execute ("n(2)=n(2)+1;")
$ _& g+ w4 @/ G2 e/ P4 m6 cmatlab.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")
0 O* i0 Q  C+ X9 D+ O9 q& ?matlab.Execute ("n(4)=n(4)+1;")
1 C* L* \9 _8 |matlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
+ ~& R& Q; b6 wmatlab.Execute ("n(5)=n(5)+1;")
, t3 s  i$ z0 ]matlab.Execute ("end")
* A, S, P$ r# Ematlab.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);")
. l! k9 |9 X8 a6 ?matlab.Execute ("set(gcf,'color','w');print(gcf,'-dmeta')")
Picture1.Picture = Clipboard.GetData()
4 \9 z: E( b2 C8 ZEnd Sub

  `4 a4 r: {. }3 S7 ]! `/ B6 _

求朋友们指点一下，为什么出的图是错的。。
4 @% n3 U6 R0 l

1345389794

································
/ m! F2 g$ \2 ]6 w/ t

1345389794

好厉害！！！！！！！！！！！！
$ T7 j, f% l1 P3 z( m4 E