arithmetic Mean, one liner [class 20091208/11]

Option Explicit
'Script written by onur yuce gun
'Script copyrighted by
'Script version Friday, December 11, 2009 10:21:04 AM

Call Main()
Sub Main()
	'call the function
	rhino.Print calcMean(26,8)
End Sub
Function calcMean(num1,num2)
	Dim sum
	sum = num1 + num2
	calcMean = sum/2
End Function

Advertisement

~ by onuryucegun on 2009/12/12.