单项选择题

计算霄的近似值的一个公式是
。某人编写下面的程序用此公式计算并输出π的近似值：
Private Sub Command1_Click()
PI=1
Sign=1
n=20000
For k=3 To n
sign=-sign
PI=PI+sign/k
Next k
Print PI*4
End sub
运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是
A)把For k=3 To n改为For k=1 To n
B)把n=20000改为n=20000000
C)把For k=3 To n改为For k=3 To n Step2
D)把PI=1改为PI=0

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j =2 To 4 arr(i,j) =i*j Next Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是

A) 12
B) 13
C) 14
D) 15

单项选择题

在窗体上添加一命令按钮，其名为Command1，然后编写代码如下： private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)AS Integer n=3 For i=1 To 5 arr(i)=i arr1(n)=2*n+i Next Print arr1(n)；art(n) End Sub 程序的运行结果为

A) 3 11
B) 11 3
C) 13 3
D) 3 13

相关试题