问两个初级问题

Question

1.编一完整程序.在某考试试点中,有一批(不超过100个,通过随机数产生)成绩,编程要求算术平均值R,方差D和标准差S。
2.随机产生10个递增的100-400的随机数，存放到数组中，并显示结果

Answer 1

dim avg as single,dev as singleFunction AvgScore(a() as single,n as integer) as single
         dim i%,sum#         sum=0
         for i=1 to n
             sum=sum+a(i)
         next i
         AvgScore=sum/n
end functionFunction DevScore(a() as single,n as integer)as single
         dim i%,sum#
         
         sum=0
         for i=1 to n
             sum=sum+(a(i)-avg)^2
         next i
         DevScore=sqr(sum/(n-1))
end functionsub StatScore()
    dim i%,n%,a(100) as single    n=100
    randomize timer    for i=1 to n
        a(i)=100+fix(rnd*300)
    next i
    avg=avgscore(a(),n)
    dev=devscore(a(),n)
end sub