单项选择题

某人为计算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=11
B．把For k=n-1 To 2 Step-1改为For k=1 To n-1
C．把For k=n-1 T0 2 Step-1改为For k=1 To n
D．把For k=-n-1 To 2 Step-1改为For k=2 To n

<上一题目录下一题>

热门试题

单项选择题

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明： Private Type Person name As String*8 major As String*20 End Type Dim P AS Person 设文本框中的数据已正确地赋值给Person类型的变量P，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是( )

A．Open"c:\Test2.dat"For Output As#1
Put#1,1,P
Close#1
B．Open"c:\Test2.dat"For Random As#1
Get#1,1,P
Close#1
C．Open"c:\Test2.dat"For Random As#1 Len=Len(p)
Put#1,1,P
Close#1
D．Open"c:\Test2.dat”For Random As#1 Len=Len(p)
Get#1,1,P
Close#1

单项选择题

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

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

相关试题