vb time1 = s / a1 显示实时错误 6 溢出 time1 是 double s 是 long a1 是 int 感觉 time

time1 = s / a1显示实时错误6 溢出
time1是double   s是long    a1是 int   
感觉time1数值上不是很大？？？

还有我想求double型的平均值，想要求出的结果也是double，哪个除法能实现？