VB_Python代码对照算法百题（026）

VB代码：（2018年8月温州）14．数学中圆周率的计算公式为：

下图是计算圆周率的VB程序界面，精确到万分之一，保留4位小数输出。

(1)观察程序设计界面，该程序共包含 　　　类对象。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码：
Private Sub Command1Click()
Dim flag As Boolean
Dim t As Single, sum As Single
Dim i As Long, f As Integer
flag = False                                            

f = -1                                                    

sum = 1 : i = 　　　①
Do While Not flag  

    t = 1 / (2 * i + 1)                             ‘P1  

    If t * 4 < 0．0001 Then flag = True ‘P2  

               ②                                            

    f = -f                                                  

    i = i + 1                                                

Loop                                                      

Label2．Caption = Str(Int(sum * 4 * 10000+0．5) / 10000) ‘P3
End Sub
(3)计算及输出结果精确到百万分之一，应修改的语句是        
（单选，A．P1、P2 / B．P1、P3 / C．P2、P3）

参考答案：

(1) (1分) 3
(2) ①(1分) 1 ②(2分)sum=sum+ft
(3) (1分) C

Python参考代码如下：

flag=False
f=-1
su=1
i=1
while not flag:  

    t=1/(2i+1)  

    if t4<0.0001:  

        flag=True  

    su=su+ft  

    f=-f  

    i+=1
print(‘pi精确到万人之一的结果为：’,int(su410000+0.5)/10000)

Python代码运行如下：