单项选择题

计算的近似值的一个公式是π/4=1-13+15-17+…+(-1)n-112n-1。
某人编写下面的程序用此公式计算并输出的近似值：
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 Step 2
D．把PI=1改为PI=0

<上一题目录下一题>

热门试题

单项选择题

窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序： Private Sub Command1_Click() Dim n If Text1.Text＜＞ 123456 Then n=n+1 Print 口令输入错误 & n & 次 End If End Sub 希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是( )

A．在Dim n语句的下面添加一句：n=0
B．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)＆"次"
D．把Dim n改为Static n

单项选择题

下面程序计算并输出的是( ) Private Sub Command1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a＜=0 Print s End Sub

A．13+23+33+…+103的值
B．10! +…+3! +2! +1!的值
C．(1+2+3+…+1O)3的值
D．10个103的和

相关试题