首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人为计算n!(0<n<=12)编写了下面的函数过程: Private Function fun(n As Integer)As Long Dim p As Long p=1 For k=n–1 To 2Step-1 p=p*k Next k fun=p
某人为计算n!(0<n<=12)编写了下面的函数过程: Private Function fun(n As Integer)As Long Dim p As Long p=1 For k=n–1 To 2Step-1 p=p*k Next k fun=p
admin
2016-12-13
38
问题
某人为计算n!(0<n<=12)编写了下面的函数过程:
Private Function fun(n As Integer)As Long
Dim p As Long
p=1
For k=n–1 To 2Step-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改为Fork=1 To n-1
C、把For k=n–1 To 2 Step-1改为Fork=1 To n
D、把For k=n-1 To 2 Step-1改为For k=2 To n
答案
B
解析
本题考查的考点是有关循环次数的。本题题干中程序的错误在于,p的值是从1一直乘到n-1的值,也就是n-1的阶乘。选项A可以在这个基础上再乘n就得到n的阶乘;选项C和D都能够保证从1乘到n,只有选项B是错误的。
转载请注明原文地址:https://kaotiyun.com/show/iBGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填()。SubEnSure()DimyearAsIntegeryear=Val(InputBox(”请输入年份:”))If(
有下列事件过程:PrivateSubCommandlClick()b=10DoUntilb=-1a=InputBox(”请输入a的值”)a=Val(a)b=InputBox(”请输入b的值”)
用Print方法在Forml窗体中显示出4个#号的正确代码为()。
在窗体上设计两个复选框,一个显示粗体,另一个显示斜体,通过对复选框的选择,在一个文本框中显示相应效果的文本,请完成下列程序。PrivateSubFormLoad()Check2.Caption=“显示斜体”Textl.T
下列程序的功能是:弹出一个对话框询问用户是否输出,如果是,则输出;否则结束。请填空。SubPrintOutoDimaAsIntegera=MsgBox(“输出结果?”,vblnformation+vbYesN
在窗体上画一个名称为Commandl的命令按钮和2个名称分别为Textl、Text2的文本框,然后编写如下程序:FunctionFun(XAsInteger,ByValyAsInteger)AsIntegerx=X+Y
在VisualBasic中可以建立_________菜单和__________菜单。
设a=“VisualBasic”,下面使b=“Basic”的语句是()。
设x=3.3,y=4.5,表达式x—Int(x)+Fix(y)的值是()。
下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段(),完成程序。PrivateSubCommandlClick()Dimarr(1To20)
随机试题
A.紫雪丹B.至宝丹C.安宫牛黄丸D.牛黄清心丸凉开方剂长于芳香开窍的是
一平面简谐波的波动方程为,则在t=0.25s时刻,处于平衡位置,且与坐标原点x=0最近的质元的位置是()。
采用单层条板做分户墙时,其厚度不应小于()。
企业实施科学化、规范化安全管理的工作基础是()。
下列各账户中,年末结转后可能有余额的是()。
管理费通常从基金的股息、利息收益中或从基金资产中扣除,也可以向投资者收取。( )
相对于资本市场而言,下列各项中,属于货币市场特点的是()。
下列应计入产品成本的有()。
某商场用38万元购进40个A商品和30个B商品进行销售。销售A时加价20%,销售B时加价15%,全部售出后获利6.7万元,商品A的售价是()元。
Whetherthepastornow,parentlesschildrenrelyonthegoodwillandpityofthecommunity.Tobecomeafosterparent,onenee
最新回复
(
0
)