单项选择题

某人为计算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 End Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是______。

A．把p=1改为p=n
B．把For k=n-1 To 2 Step-1改为For k=1 To n-1
C．把For k=n-1 To 2 Step-1改为For k=1 To n
D．把For k=n-1 To 2 Step-1改为For k=2 To n

<上一题目录下一题>

热门试题

单项选择题

设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr= strL=Len(xStr) i=1 Do While i＜=strL 2 tStr=tStr & Mid(xStr, i, 1)& Mid(xStr,strL-i+1,1) i=i+1 Loop Fun=tStr End Function 在窗体上画—个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1= abcdef Print UCase(Fun(S1)) End sub 程序运行后，单击命令按钮，输出结果是______。

A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC

单项选择题

窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m=InputBox( 请输入—个正整数 ) ReDim a(m) End Sub Private Sub Command2_Click() m=InputBox( 请输入—个正整数 ) ReDim a(m) End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是______。

A．5
B．6
C．10
D．11

相关试题