1֧ʹ.NETԱĲ
2Ϊڲ͵,ʹñôɲ
3ɵĲ·λCalculator\DefineFunction\VBNETļ(ûеĻ,д)
4ĺ׺֧.exe.dll 
5ÿ֧һƵĵ(),ļһ
6ϣûʱʹõʾ,ͬCalculator\DefineFunction\VBNETļ½һͬƺ׺Ϊ.txt˵ļ
7ϣûļʾʹ˵ʱ,ڱдʱ,дһPublic Function Hint() As String ĺ,ضӦ˵


:

/******************************************************* 

Public Function MyAdd(ByVal a(,) As Double, ByVal b As Double) As Double(,) 
      Dim i, j, n,m As Integer 
      m=a.GetLength(0) 
      n = a.Length \ m - 1 
      m -= 1 
      For i = 0 To m 
            For j = 0 To n 
                  a(i, j) += b 
            Next 
      Next 
      Return a 
End Function 

*******************************************************/ 
//*֮ݴļc:\test.vbļ,ִ
codePath = "c:\test.vb";
mainPath = ApplicationDirectory() ;
exePath  = SymAppend(mainpath , "\Calculator\DefineFunction\VBNET\" ,"MyAdd.dll");
CompileVBNETCode(codePath , exePath);//ִбȷǷɹ
ApplicationRestart();//뵯ؼmyaddЧ,ִб,עⵯؼֵĴСдļһ

//Բmyadd
b=1:4//ִбһb 
b = 
[ 1.00000000000000    2.00000000000000    3.00000000000000    4.00000000000000 ] 

c=Myadd(b,10)//ִбõb+10Ľ 
c = 
[ 11.0000000000000    12.0000000000000    13.0000000000000    14.0000000000000 ]
