题目内容
（请给出正确答案）
（34 ）某人设计了下面的函数 fun ，功能是返回参数 a 中数值的位数
Function fun(a As Integer) As Integer
Dim n%
n = 1
While a \ 10 ＞= 0
n = n + 1
a = a \ 10
Wend
fun = n
End Function
在调用该函数时发现返回的结果不正确 ， 函数需要修改 ， 下面的修改方案中正确的是
A ） 把语句 n = 1 改为 n = 0
B ） 把循环条件 a \ 10 ＞= 0 改为 a \ 10 ＞ 0
C ） 把语句 a = a \ 10 改为 a = a Mod 10
D ） 把语句 fun = n 改为 fun = a
如果结果不匹配，请 联系老师 获取答案
更多“（34 ）某人设计了下面的函数 fun ，功能是返回参数 a…”相关的问题
（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
若有下面的函数调用： fun (a+ b，3，max(n-1，b)) 则fun的实参个数是()。
A．3
B．4
C．5
D．6
下面的说明中，正确的函数定义是()。
A．void fun(void)
B．void fun(void){}
C．fun(int s){}
D．fun(int s){return s+1；}
某人为计算n!(0＜n＜=12)编写了下面的函数过程：
Private Function fun(n As Integer)As Long
Dim P As Long
P=1
For k=n-1 To 2 Step-1
P=P*k
Next k
fun=P
EndFunction
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是
A．把P=1改为P=n
B．把For k=n-1 To 2 Step-1改为For k=1 To n-l
C．把For k=n-1 T02 Step-1改为Fork=1 To n
D．把For k=n-1 To 2 Step-l改为FOr k=2 To n
设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Function fun(a As Integer，b As Integer)
While a＞b
a=a-b
Wend
fun=a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是
A．把a=a-b改为a=b-a
B．把a=a-b改为a=a＼b
C．把While a＞b改为While a＜b
D．把While a＞b改为While a＞=b
某人设计了如下程序用于计算并输出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
（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
给定程序MODI1．C中函数fun的功能是：用下面的公式:
π/4=1-1/3+1/5-1/7+.....
求x的近似值，直到最后一项的绝对值小于指定的数(参数num)为止：
例如，程序运行后，输入0．0001，则程序输出3．1414。
请改正程序中的错误，使它能输出正确的结果。_______
注意：不要改动smain函数，不得增行或删行，也不得更改程序的结构!
include 〈 math．h 〉
include 〈 stdio．h 〉
float fun (float num)
{ int s ；
float；n，t，pi ；
t=1；pi=0；n=1；s=1；
／**********found**********／
while(t 〉=num)
{
pi = pi + t ；
n = n +2 ；
s=-s ；
／**********found**********／
t = s ％ n ；
}
pi=pi*4 ；
return pi ；
}
main()
{ float n1，n2；
printf("Enter a float number：")；
scanf("％f"， &n1)；
n2=fun(n1)；
printf("％6．4f＼n"，n2)；
}
下列给定程序中，函数fun()的功能是：用下面的公式求π的近似值，直到最后一项的绝对值小于指定的数(参数num)为止。
π/4≈1-1/3+1/5-1/7+…
例如，程序运行后，输入0.0001，则程序输出3.1414。
请改正程序中的错误，使它能得出正确的结果。
注意：不要改动main函数，不得增行或删行，也不得更改程序的结构。
试题程序：
include ＜math.h＞
include ＜stdio.h＞
float fun(float num)
{ int s;
float n,t, pi;
t=1 ;pi=0; n=1; s=1;
/**************found***************/
while (t＞=num)
{
pi=pi+ t;
n=n+2;
s=-s;
/**************found**************/
t=s% n;
}
pi=pi*4;
return pi;
}
main ()
{ float n1, n2;
clrscr ();
printf ("Enter a float number: ");
scanf ("%f", &n1);
n2=fun (n1);
print f (" %6.4 f\n ", n2);
}
例如，输入下面的矩阵： 其转置矩阵为：
1 2 3 1 4 7
4 5 6 2 5 8
7 8 9 3 6 9
程序输出：
2 6 10
6 10 14
10 14 18
注意：部分源程序在文件PROGl．C中。
请勿改动主函数main和其他函数中的任何内容，仅在函数fun的花括号中填入你编写的若干语句。
