VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
Dim str1 As String
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
) u% Q2 }- I4 f6 i8 X0 ~7 AEnd Sub
4 r6 h/ L8 m5 ~0 dPrivate Sub Command2_Click()
0 j; g( [" ?+ ?8 ODim matlab As Object
+ v5 g1 \$ J6 g0 M; qSet matlab = CreateObject("Matlab.application")
  T/ Y5 |$ x4 ZClipboard.Clear
1 w. B7 s/ j: G$ M0 G. k+ \6 b/ |& omatlab.Execute ("n(5)=0;")
2 e/ D) @! A4 j/ f$ b- dmatlab.Execute ("str1")
$ F5 E0 l9 j& B# L0 b4 F# Gmatlab.Execute ("b=a(:,10);m=length(b);")
- e3 J% v$ T+ ]& F- y  bmatlab.Execute ("for i=1:1:m")
matlab.Execute ("if abs(b(i))>100")
; Q' n/ `, M, lmatlab.Execute ("n(1)=n(1)+1;")
matlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
  k5 ^/ U4 H0 R0 U- S' u2 Bmatlab.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 F0 [7 A6 }+ E! D$ Amatlab.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")
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')")
Picture1.Picture = Clipboard.GetData()
End Sub

( v# W" D2 O! u+ D0 L) N) C* {& ]

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

1345389794

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

1345389794

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