计算π近似值的一个公式是，某人编写下面的程序用此公式计算并输出π的近似值： 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,显然，程序需要修改。下面修改方案中正确的是？/ananas/latex/p/415067
举一反三
- 某人设计了如下程序用来计算并输出7!(7的阶乘) Private Sub Command1_Click() t=0 For k=7 To 2 Step -1 t=t*k Next k Print t End Sub 执行程序时,发现结果是错误的,下面的修改方案中能够得到正确结构的是
- 为计算的值，并把结果显示在文本框Text1中，若编写如下事件过程： Private Sub Command1_Click Dim a%, s%,k% s=1 a=2 For k=2 To 10 a=a*2 s=s+a Next k Text1.Text=s End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应该做的修改是/ananas/latex/p/415072
- 下面程序的输出结果是 Private Sub Command1_Click() ch$="ABCDEF" proc ch Print ch End Sub Private Sub proc(ch As String) S="" For k=Len(ch) To 1 Step-1 s=s & Mid(ch,k,1) Next k ch=s End Sub
- 运行下列程序，单击窗体后显示结果为（ ）。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc(3); Next End Sub
- 下面程序的功能是用公式π2/6≈1/12+1/22+1/32+...+1/n2求π的近似值，直到最后一项的值小于10-6为止，请分析程序填空。 #include[math.h] #include[stdio.h] main() {long i=1; 【1】pi=0; while(i*i>=1e6) {pi=【2】;i++;} pi=sqrt(6.0*pi); printf("pi=%10.6f\n",pi); }