单项选择题

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

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 2 To n

<上一题目录下一题>

热门试题

单项选择题

窗体上有名称分别为Text1、Text2的两个文本框，有一个由三个单选按钮构成的控件数组Option1，如图3所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图4所示。为了实现上述功能，在程序中的问号()处应填入的内容是 Private Sub Option1_Click(Index As Integer) If Text1.Text＜＞ Then Select Case Case 0 Text2.Text=Val(Text1.Text) Case 1 Text2．Text=Val(Text1.Text)*10 Case 2 Text2.Text=Val(Text1.Text)*100 End Select End If End Sub

单项选择题

设有如图2所示的窗体和以下程序： Private Sub Command1_Click() Text1.Text= Visual Basic End Sub Private Sub Text1_LostFocus() If Text1.Text＜＞ BASIC Then Text1.Text= Text1.SetFocus End If End Sub 程序运行时，在Text1文本框中输入Basic(如图2所示)，然后单击Command1按钮，则产生的结果是

相关试题