VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
Dim str1 As String
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
/ H3 R8 q: l8 V0 QEnd Sub
0 x3 }2 x( H. q* X! O; p1 SPrivate Sub Command2_Click()
Dim matlab As Object
2 H! v6 Q3 P8 f) k- u' WSet matlab = CreateObject("Matlab.application")
Clipboard.Clear
; v1 J7 h: x, `6 \$ [1 E8 [matlab.Execute ("n(5)=0;")
8 A  q7 |! p: _6 F8 Fmatlab.Execute ("str1")
matlab.Execute ("b=a(:,10);m=length(b);")
matlab.Execute ("for i=1:1:m")
+ b$ E- d& y+ R9 qmatlab.Execute ("if abs(b(i))>100")
matlab.Execute ("n(1)=n(1)+1;")
matlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
$ F7 F* q0 ~2 D. amatlab.Execute ("n(2)=n(2)+1;")
3 |+ V2 l( g2 Z/ Omatlab.Execute ("elseif abs(b(i))>15.8 & abs(b(i))<=50.8")
0 h6 g4 Y% D2 t9 \+ a6 Xmatlab.Execute ("n(3)=n(3)+1;")
, u4 v2 K+ b+ B; y7 Y  e! s4 w! cmatlab.Execute ("elseif abs(b(i))>10.1 & abs(b(i))<=15.8")
+ o$ z) k" [: U2 \matlab.Execute ("n(4)=n(4)+1;")
matlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
9 ^- H7 B% q: `0 Mmatlab.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);")
- U) ]- [. N5 G1 x8 U4 G3 w/ u2 gmatlab.Execute ("set(gcf,'color','w');print(gcf,'-dmeta')")
Picture1.Picture = Clipboard.GetData()
% s( P. x( ]( V9 a* y% G. F3 c9 IEnd Sub
/ Q& F& T# S: n& p: Z+ V9 u
& M$ x/ q2 B2 Y* a( Z5 O

求朋友们指点一下，为什么出的图是错的。。
* l  A) r: a2 z+ O

1345389794

································
6 F+ n& i* W. D9 W+ Y/ P

1345389794

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