个数=Ubound()-Lbound()max=a(lbound()):min=a(lbound()):sum=0fori=Lbound()+1toUbound()ifmax<a(i)thenmax=a(i)ifmin>(ai)thenmin=a(i)sum=sum+a(i)nextimsgbox"最大值是"&str(max):"最小值是"&str(min):"平均值是"str(sum/个数)