题目内容
（请给出正确答案）
某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是。 A．把t=0改为t=1 B．把For k=7 TO 2 Step -1改为For k=7 TO 1 Step -1 C．把For k=7 TO 2 Step -1改为For k=1 TO 7 D．把Next改为Next k
如果结果不匹配，请 联系老师 获取答案
更多“某人设计了如下程序用于计算并输出7!（7的阶乘)： Priv…”相关的问题
（20 ）某人设计了如下程序用来计算并输出 7! （7 的阶乘）
Private Sub Command1_Click()
t=0
For k=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是
A ）把 t=0 改为 t=1
B ）把 For k = 7 To 2 Step -1 改为 For k =7 To 1 Step -1
C ）把 For k = 7 To 2 Stip-1 改为 Fork=1 To 7
D ）把 Next 改为 Nexi k
计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n -1)。 某人编写下面的程序用此公式计算并输出的近似值： Private Sub Cornmand1 Click（） P1=1 Sign=1 n=20000 For k=3 To r Sign=-Sign PI=PI+SiRn／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改为P1=0
A.Hello
B.Hi
C.HiHello
D.Hi Hello
（7 ）有如下程序段：
fer （int i=1; i＜=50;i++ ） {
if （i%3 != 0 ）
continue;
else
if （i%5!=0 ）
continue;
tout＜＜i＜＜" ， " ；
}
执行这个程序段的输出是【 7 】 。
（34）为计算 a 的值，某人编写了函数 power 如下：
Private Function power (a As Integer, n As Integer) As Long
Dim p As Long
p=a
For k=1 To n
p=p*a
Next k
power=p
End Function
在调试时发现是错误的，例如 Print power(5,4)的输出应该是 625，但实际输出是 3125。程序需要修改。
下面的修改方案中有 3 个是正确的，错误的一个是（）。
A）把 For k=1 To n 改为 For k=2 To n
B）把 p=p*a 改为 p=p^n
C）把 For k=1 To n 改为 For k=1 To n-1
D）把 p=a 改为 p=1
有如下程序，运行时输出的结果是 ______。 Option Base 1 Private Sub Command1_Click() Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m-1，n-1)=m+n+1 Next n Next m For m=0 To 2 For n=0 To 2 Print a(n,m)； Next n Print Next m End Sub
A．0 1 2 1 2 3 2 3 4
B．3 4 5 4 5 6 5 6 7
C．1 3 5 3 5 7 5 7 9
D．2 4 6 4 6 8 6 8 10
程序代码如下：
#include
int main()
{
int a,b;
printf("please input a and b:\n");
scanf("%d%d",&a,&b);
printf("the output data is %d\n",a
return 0;
}
从键盘输入以下数据：
2<回车>
7<回车>
则程序输出为()
A、the output data is 1
B、the output data is 0
C、the output data is 2
D、the output data is 7
【程序说明】 下列输出乘法口诀的程序，要求输出的格式如下，其中数字之间有3个空格。
* 1 2 3 4 5 6 7 8 9
1 1
2 2 4
3 3 6 9
4 4 8 12 16
5 5 10 15 20 25
6 6 12 18 24 30 36
7 7 14 21 28 35 42 47
8 8 16 24 32 40 48 56 64
9 9 18 27 36 45 54 63 72 81
【程序】
CLEAR
SET TALK OFF
(5)
A＝1
DO WHILE A＜=9
？？ STR(A，4)
A＝A+1
ENDDO
A= (6)
DO WHILE A＜=9
？ STR(A，4)
B＝1
DO WHILE B＜＝A
P= (7)
？？ STR(P，4)
B=B+1
ENDDO
A= (8)
ENDDO
SET TALK ON
RETURN
(5)
A．？“*”
B．？ SPACE(3) +“*”
C．？ SPACE (3)+*
D．SPACE(3) +“*”
（7 ）软件详细设计产生的图如下：
该图是
A ） N-S 图
B ） PAD 图
C ）程序流程图
D ） E-R 图
