VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
Dim str1 As String
CommonDialog1.ShowOpen
/ B8 o9 i5 E0 |: H  r+ E/ VText1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
7 D& x/ j( T5 i, g8 F- s. k& UEnd Sub
Private Sub Command2_Click()
2 W) p$ q* l: k; o$ VDim matlab As Object
0 p; ~! d! n1 k2 B- {" d6 A9 fSet matlab = CreateObject("Matlab.application")
/ w4 g) d  `# F* w1 T3 ZClipboard.Clear
% p4 A" t: I4 f# {# M) umatlab.Execute ("n(5)=0;")
% ]+ e5 t/ w! Tmatlab.Execute ("str1")
matlab.Execute ("b=a(:,10);m=length(b);")
) n& c% J) B! D0 `, t( x! \* lmatlab.Execute ("for i=1:1:m")
; p# \$ a: d" M+ X3 L  A7 V3 Amatlab.Execute ("if abs(b(i))>100")
4 O, G, J# z: K1 s* A# h" G3 Nmatlab.Execute ("n(1)=n(1)+1;")
matlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
$ V! e! B4 T: O0 C; Y5 pmatlab.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;")
7 Y  P* E( Y2 o  ^6 q) _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;")
; K, k$ _  y" ?3 fmatlab.Execute ("end")
; _; \4 X4 n9 z# Cmatlab.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);")
% x* E# i7 u6 V( R  ymatlab.Execute ("set(gcf,'color','w');print(gcf,'-dmeta')")
7 n/ I! i. S) j& M  m1 L6 RPicture1.Picture = Clipboard.GetData()
* N% [& d/ M0 _- v- Z# l5 rEnd Sub
2 \! j  B$ K& F3 r& X/ ?4 s
& Y; V7 B7 n, d. m* g

求朋友们指点一下，为什么出的图是错的。。
- e) w/ e2 e/ e3 P

1345389794

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

1345389794

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