1ļ

ԶĺʹVBԱд,ҾڳĿ¼"Calculator\DefineFunction\VBNET"ļ(ûдļ½),"Calculator\DefineFunction\VBNET"ļĺıĵ(*.txt)VBı(*.vb)ĸʽ洢,ļԺ(ִСд).

2涨ʽ

ѭVB.NETдʽ,н±
(1)DoubleIntegerSingleString
(2)Double(,)Integer(,)Single(,)String()


:

*******֮Ĵ븴Ʊ浽"Calculator\DefineFunction\VBNET"ļµ"myadd.txt",Ĺʵ2ӻһÿָ

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

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

*******************************************************/
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 ]