题库 题库

【单选题】

某人为计算 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

参考答案

查看答案

相关试题

单选题 某人编写了下面的程序
Private Sub Command1_Click( )
  Dim a As Integer, b As Integer
  a=InputBox("请输入整数")
  b=InputBox("请输入整数")
  pro a
  pro b
  Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
  While (n>0)
    Print n Mod 10;
    n=n\10
  Wend
  Print
End Sub
此程序功能是:输入 2个正整数,反序输出这 2 个数的每一位数字,再反序输出这 2
个数之和的每一位数字。例如:若输入 123 和234,则应该输出:
3 2 1
4 3 2
7 5 3
但调试时发现只输出了前 2 行(即2 个数的反序),而未输出第 3 行(即2 个数之和
的反序),程序需要修改。下面的修改方案中正确的是(    )。
查看答案
单选题 在设计窗体时双击窗体的任何地方,可以打开的窗口是(    )。 查看答案
单选题 以下关于过程及过程参数的描述中,错误的是(    )。 查看答案
单选题 执行下列语句
strInput=InputBox ("请输入字符串","字符串对话框","字符串")
将显示输入对话框。此时如果直接单击“确定”按钮,则变量 strInput 的内容是(    )。
查看答案
单选题 某人为计算 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 种是正确的,错误的方案是(    )。
查看答案
单选题 设窗体上有一个列表框控件 List1,含有若干列表项。以下能表示当前被选中的列表
项内容的是(    )。
查看答案
单选题 一个栈的初始状态为空。现将元素 1、2、3、4、5、A、B、C、D、E 依次入栈,然后再依次出栈,则元素出栈的顺序是(    )。 查看答案
单选题 窗体上有一个名称为 Frame1 的框架(如图),若要把框架上显示的“Frame1”改为
汉字“框架”,下面正确的语句是(    )。
  
查看答案
单选题 在窗体上画一个名为 Command1 的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
  Dim a
  a=Array(1, 2, 3, 4)
  j=1
  For i=4 To 1 Step -1
    s=s+a(i)*j
    j=j*10
  Next i
  Print s
End Sub
运行上面的程序,其输出结果是(    )。
查看答案
单选题 在窗体上画一个名称为 Command1 的命令按钮,再画两个名称分别为 Label1、Label2
的标签,然后编写如下程序代码:
Private X As Integer
Private Sub Command1_Click( )
  X=5: Y=3
  Call proc(X, Y)
  Label1.Caption=X
  Label2.Caption=Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
  X=a*a
  Y=b+b
End Sub
程序运行后,单击命令按钮,则两个标签中显示的内容分别是(    )。
查看答案
单选题 数据流图中带有箭头的线段表示的是(    )。 查看答案
单选题 假定有以下循环结构
Do Until  条件表达式
循环体
Loop
则以下正确的描述是(    )。
查看答案
单选题 以下不能输出“Program”的语句是(    )。 查看答案
单选题 下列叙述中正确的是(    )。 查看答案
单选题 若变量 a 未事先定义而直接使用(例如:a=0),则变量 a 的类型是(    )。 查看答案
单选题 在面向对象方法中,不属于“对象”基本特点的是(    )。 查看答案
单选题 在软件开发中,需求分析阶段可以使用的工具是(    )。 查看答案
单选题 在长度为 n 的有序线性表中进行二分查找,最坏情况下需要比较的次数是(    )。 查看答案
单选题 表达式 2*3^2+4*2/2+3^2 的值是(    )。 查看答案
单选题 设有如下通用过程:
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
程序运行后,单击命令按钮,输出结果是(    )。
查看答案