几何概型用点落在正方形内切圆内的频率估计圆周率VB开源

求圆周率，可以通过反正切公式来计算、利用割圆法等，也可以用频率估计概率的方法来求。 假设一个正方形的面积为4，则其内切圆面积为π，现向正方形内随机投掷米粒，可知米粒落在圆中的次数占总数的π/4。经过大量实验，用这个频率乘4可得π的近似值。 本程序使用这种方法，利用VB的随机数生成器来实现，并画出p*4的折线图，理论上会稳定在3.14159附近，图供参考。 附有VB源码，带注释。随机数生成器已经经过一些改良，如果可以更有随机性就更好了。