题库 高中信息
题干
用蒙特卡洛法求圆周率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）要使得按钮的文字显示为“计算”，应该修改该对象的__________属性。
（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 =_______________
答案(点此获取答案解析）
