题目

用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd，随机生成两个[0,1）之间的随机数，由此构成一个投点坐标（x, y），然后根据x2+y2<=1投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆内的点数为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)        ①     s = 0     Do While i <= n              '随机投点n次         x = Rnd: y = Rnd         z =       ②         If z <= 1 Then             s = s + 1         End If         i = i + 1     Loop Text2.Text =     ③ 答案： 【1】caption 【1】i=1【2】x*x+y*y或sqr(x*x+y*y)【3】4*s/n

查看本题答案和解析