网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
计算n!的函数过程如下:
Private Function fact(n As Integer)As Long
f = 1
For i = 1 To n
f = f * i
Next i
(___________________)
End Function
下划线处需要编写的语句是( )。
A. f = 1
B. f = fact
C. fact = f
D. 不需要其他任何语句
参考答案
更多 “ 计算n!的函数过程如下:Private Function fact(n As Integer)As Longf = 1For i = 1 To nf = f * iNext i(___________________)End Function下划线处需要编写的语句是( )。A. f = 1B. f = factC. fact = fD. 不需要其他任何语句 ” 相关考题
考题
（ 29 ）有如下函数：Function fun(a As Integer,n As Integer) As IntegerDim m As IntegerWhile a =na=a-nm= m+1Wendfun=mEnd Function该函数的返回值是A ） a 乘以 n 的乘积B ） a 加 n 的和C ） a 减 n 的差D ） a 除以 n 的商（不含小数部分）
考题
D）DEFABC（32）某人为计算 n!(0n=12)编写了下面的函数过程：Private Function fun(n As Integer) As LongDim p As Longp=1For k=n-1 To 2 Step-1p=p*kNext kfun=pEnd Function在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3 种是正确的，错误的方案是（ ）。A）把 p=1 改为 p=nB）把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1C）把 For k=n-1 To 2 Step-1 改为 For k=1 To nD）把 For k=n-1 To 2 Step-1 改为 For k=2 To n
考题
（11）在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click( )Dim i As IntegerSum=0n=InputBox("Enter a number")n=Val(n)For i=1 To nSum= 【12】Next iPrint SumEnd SubFunction fun(t As Integer)As Longp=1For i=1 To tp=p*iNext i【13】End Function以上程序的功能是，计算 1!+2!+3!+?+n!，其中 n 从键盘输入，请填空。
考题
数组A在子过程或函数中定义为形参,正确的语句是( )。
A、Private Sub sele(ByVal A( ) As integer)B、Private Function sale(A() As Integer) As StringC、Private Sub sale(A() As Integer) As IntegerD、Private Sub sale(A(i) As Integer)
考题
阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function.Private Sub Command1_Click () Dim a As Integer a= 5 s = func (A)Print s End Sub 程序运行后，单击命令按钮，输出的结果为A．80B．60C．70D．15
考题
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x＞y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．lB．2C．5D．8
考题
设有以下函数过程 Private Function Fun(a（ ）As Integer，b As String)As Integer … End Function 若已有变量声明： Dim x(5)As Integer，n As Integer，ch As String 则下面正确的过程调用语句是（ ）。A.x(O)=Fun(x．"ch")B.n=Fun(n．ch)C.CallFun X，"ch"D.n=Fun(x(5)，ch)
考题
设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#"；I“=”Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是A．#2=2 #3=3B．#2=2 #3=5C．#；2=2 #；3=3D．#；2=2 #3；=5
考题
某人为计算n!(0n=12)编写了下面的函数过程：Private Function fun(n As Integer)As LongDim P As LongP=1For k=n-1 To 2 Step-1P=P*kNext kfun=PEndFunction在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是A．把P=1改为P=nB．把For k=n-1 To 2 Step-1改为For k=1 To n-lC．把For k=n-1 T02 Step-1改为Fork=1 To nD．把For k=n-1 To 2 Step-l改为FOr k=2 To n
考题
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．4B．6C．9D．15
考题
有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为A．120B．60C．80D．100
考题
有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To x s=s+ i Next i 1j= s End Function在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数： Private Sub Command1 Click() Dim i As Integer Dim sum As Long For i = 1 To 5 sum = sum + 1j(i) Next i Print sum End SubA． 25B．35C．45D．55
考题
单击命令按钮之后，下列程序代码的执行结果为______。 Private Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S： End SubA．20B．30C．115D．135
考题
在窗体上画一个名为Commandl的命令按钮，然后编写如下程序：Private Sub Conunandl_Click()Dim i As IntegerSum=0n=InputBox(”晰a number”)n=Val(n)For i=1 T0 nSum=【 】Nextiprint SumEnd SubFunction fun(t As Integer)As LongP=1For i=1 To tP=P*iNext i【 】End Function以上程序的功能是，计算1 1+2 1+3 1+…+n!，其中n从键盘输入，请填空。
考题
设有以下函数过程Private Function Fun(a()As Integer，b As String)As IntegerEhd Function若已有变量声明：Dim x(5)As Integer，n As Integer，ch As String则下面正确的过程凋用语句是A．x(0)=Fun(x，“ch”)B．n=Fun(n，ch)C．Call Fun x，“ch”D．n=Fun(x(5)，ch)
考题
设有一个递归算法如下 im fact(int n){ if(n＜=0)return 1; else return n * fact(n-1); } 下面正确的叙述是(35)。A．计算fact(n)需要执行n次函数调用B．计算fact(n)需要执行n+1次函数调用C．计算fact(n)需要执行n+2次函数调用D．计算fact(n)需要执行n-1次函数调用
考题
有如下函数： Function fun(a As Integer，n As Integer)As Integer Dim m AS Integer While a=n a=a-n：m=m+1 Wend Fun=m End Function 该函数的返回值是。 A．a乘以n的乘积 B．a加n的和 C．a减n的差 D．a除以n的商(不含小数部分)
考题
程序如下：Private Sub form_ Activate() Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。A．4 5B．12 120C．24 120D．24 60
考题
有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n ＜= 4 x=x +y n=-+1 Loop firstfunc = x End Function调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub该事件过程的执行结果是 ______。A．1B．3C．16D．9
考题
在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End SubA．2B．3C．4D．5
考题
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．6B．12C．24D．47
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 3 5 7B．2 8 14 53C．0 3 21 45D．0 5 11 34
考题
函数过程如下： FUNCTION FUN( N AS STRING)AS STRING DIM N1 AS STRING FOR I=1 TO LEN(N) N1 =UCASE(MID(N,I, 1)) + N1 NEXT I FUN: N1 END FUNCTION 则S=FUN("uvwxyz")的输出结果为( )。A．uvwxyzB．zyxwvuC．UVWXYZD．ZYXWVU
考题
编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。A．-56B．0C．103D．190
考题
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(xy，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．5D．8
考题
（23）设有以下函数过程Private Function Fun(a() As Integer, b As String) As Integer...End Function若已有变量声明：Dim x(5）As Integer, n As Integer, ch As String则下面正确的过程调用语句是A）x(o)＝Fun(x, "ch")B）n＝Fun(n, chC）Call Fun x, "ch"D）n＝Fun(x(5), ch)
考题
设n的初值为正整数，设计一个递归算法如下：int fact（int n）{if（n＜=0）return 1;else return（n*fact（n-1））;}以下叙述中，正确的是______。A.计算fact（n）需要执行n+2次函数调用
B.计算fact（n）需要执行n+1次函数调用
C.计算fact（n）需要执行n次函数调用
D.计算fact（n）需要执行n-1次函数调用
热门标签
最新试卷