VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
$ a8 Q% v& J2 ~( H+ q5 LDim str1 As String
. z7 f$ L/ J' q! t3 ~6 @CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
End Sub
Private Sub Command2_Click()
Dim matlab As Object
Set matlab = CreateObject("Matlab.application")
" i3 `& u+ L* fClipboard.Clear
matlab.Execute ("n(5)=0;")
" r% O  U. ?4 L( omatlab.Execute ("str1")
matlab.Execute ("b=a(:,10);m=length(b);")
( Y/ D% T8 M% amatlab.Execute ("for i=1:1:m")
3 ^! {4 h3 T" U+ Wmatlab.Execute ("if abs(b(i))>100")
matlab.Execute ("n(1)=n(1)+1;")
4 z! f5 b% c5 J/ d+ d! Fmatlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
matlab.Execute ("n(2)=n(2)+1;")
% l# g& @6 T0 G4 v; C, A& ~0 B$ Jmatlab.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")
3 d& f3 j- i3 r" {matlab.Execute ("n(4)=n(4)+1;")
matlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
7 U3 O' F- c# `matlab.Execute ("n(5)=n(5)+1;")
# x; t6 G" J3 W) ~" x8 @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')")
/ n2 d' l( H- x) J* d& T6 [Picture1.Picture = Clipboard.GetData()
/ E. c# a! X9 M/ eEnd Sub



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

1345389794

································
! ~  ^; m9 q, U' V6 f

1345389794

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