题目

用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd，随机生成两个［0，1）之间的随机数，由此构成一个投点坐标（x，y），然后根据x2+y2≤1判断投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆（第1象限）内的点数为s，则4s/n即为所求PI的近似值程序界面图所示，在Text1中输入投点的个数，单击“计算”按钮，PI的近似值结果显示在Text2文本框中。 （1） 要使得“计算”按钮的宽度增加，应修改该对象的属性。 （2） 为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1 _Click( )    ‘蒙特卡洛法 Randomize    ‘随机数初始化 Dim i As Long, n As Long, s As Long Dim x As Double, y As Double, z As Double n =Val(Text1. Text) i=1 s=0 Do While < = n ‘随机投点n次     x= Rnd : y = Rnd     z =     ①        If z < = 1 Then        ②         End If     i=1+1 Loop Text2. Text =    ③     End Sub ① ② ③  答案： 【1】Width 【1】x^2+y^2（或x*x+y*y）【2】s=s+1【3】Str(4*s/n)

查看本题答案和解析