举一反三
- 某人设计了如下程序用来计算并输出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); }
内容
- 0
圆周率pi的近似率可用下面的公式求得: pi*pi/6 约等于 1/(1*1) +1/(2*2) +...+1/(n*n) 。 由以上公式可知,若n取值10000,则最后一项的值为1E-4,认为可达到精度要求。 以下程序用来求pi的近似值。(其中函数sqrt(a)用于求a的平方根)，空白处填 #include [stdio.h] #include [math.h] int main() { long i; float pi; pi=0.0; for(i=1;i<=10000;i++) pi+= ; pi=sqrt(6.0*pi); printf("pi=%10.6lf\n",pi); } A: 1/i*i B: 1/(i*i) C: 1.0/i*i D: 1.0/(i*i)
- 1
下面程序的功能是用公式π2/6≈1/12+1/22+1/32+...+1/n2求π的近似值,直到最后一项的值小于10-6为止,请分析程序填空。#include#includemain(){longi=1;【1】pi=0;while(i*i>=1e6){pi=【2】;i++;}pi=sqrt(6.0*pi);printf("pi=%10.6f",pi);}
- 2
下面程序的功能是根据近似公式，求PI值。 #include<math.h> double pi(long n){ double s=0.0; long i; for(i=1;i<=n;i++) s=s+ ; return( ); }41a4f1e54f08123980e4dc7940ca6080.png
- 3
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，显示结果为（ ）。
- 4
编写如下程序： Private Sub Command1_Click() Dim n As Integer : Static s As Integer For n = 1 To 3 s = s + n Next Print s End Sub 程序运行后，第三次单击命令按钮Command1时，输出结果为