vb计算圆周率运行时间