function mandsd(numericarray)
dim i, numericcount, sum, mean, sumsqddevs, sd
dim answer(1) '0平均数,1标准差
'数字个数
numericcount = ubound(numericarray) + 1
'得到总合
sum = 0
for i = 0 to numericcount - 1
numericarray(i) = cdbl(numericarray(i))
sum = sum + numericarray(i)
next
'得到平均数(mean)
mean = sum / numericcount
'得到方差
sumsqddevs = 0
for i = 0 to numericcount - 1
sumsqddevs = sumsqddevs + (numericarray(i) - mean) ^ 2
next
'得到标准差
sd = sqr(sumsqddevs / numericcount)
'返回
mandsd = array(mean, sd)
end function