首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为计算an的值,某人编写了函数power如下: Private Function power(a As Integer,n As Integer)As Long Dim s As Long p=a For k=1 To n p=p*a Next
为计算an的值,某人编写了函数power如下: Private Function power(a As Integer,n As Integer)As Long Dim s As Long p=a For k=1 To n p=p*a Next
admin
2015-06-30
24
问题
为计算an的值,某人编写了函数power如下:
Private Function power(a As Integer,n As Integer)As Long
Dim s As Long
p=a
For k=1 To n
p=p*a
Next k
power=p
End Function
在调试时发现是错误的,例如Print power(5,4)的输出应该是625,但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的,错误的一个是( )。
选项
A、把 For k=1 To n 改为 For k=2 To n
B、把 p=p * a 改为 p=p ^ n
C、把 For k=1 To n 改为 For k=1 To n-1
D、把 p=a 改为 p=1
答案
B
解析
程序中计算an的算法有误,由于已经将a的值赋给了p,在后边的For循环中再乘n次a显然就多乘了一次a,因此,要改正此程序或者将p=a改为p=1,或者将for k=1 to n 改成for k=1 to n-1或for k=2 to n。而B)选项将p=p*a改为p=p^n将会导致p=p^n执行n次,得不到正确结果。
转载请注明原文地址:https://kaotiyun.com/show/trQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列描述中正确的是
以下叙述中错误的是
设有如下通用过程:PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一
在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每一秒钟在文本框中显示一次当前的时间。程序为:PrivateSubTimerl______TxtTime.text=TimeEndS
假设有以下程序段:Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是______,i的值为______,j的值为___
关于结构化程序设计原则和方法的描述错误的是()。
执行语句Open"C:\stu.dat"ForInputAs#2之后,系统()
关系模型的数据操纵即是建立在关系上的数据操纵,一般有【】、增加、删除和修改四种操作。
下列叙述正确的是
下列程序执行后,变量S的值为DimsAsLong,xAsIntegers=0Forx=1To10Step2s=s+xNextxText1.Text=s
随机试题
一切化学平衡都遵循吕·查德理原理。
HBV表面抗原(HBsAg)的亚型有:()
患儿女,8岁。患者1个半小时前滑旱冰时不慎摔伤,撞伤上前牙,当时感觉牙痛,遇冷热水加重,不敢咬合遂就诊。检查:右上中切牙近中切角缺损,折断面中心有一小红点,直径约0.5mm,探诊极为敏感,并有出血,叩(+),不松动。X线片显示未见根折,无明显的牙槽突骨折,
男性,58岁,慢性阻塞性肺疾病10余年,近1周咳喘加重,发绀明显,烦躁,血气分析:pH7.39,PaO240MMHg,PaCO270mmHg。如果患者存在呼吸性酸中毒,在治疗中哪项是最根本的措施
下列选项中,不属于项目效益效果评价中的技术效果评价内容的是()
按照《中华人民共和国公司法》的规定,股份有限公司募集设立程序主要包括()。Ⅰ.订立章程Ⅱ.发起人认购股份Ⅲ.募股程序Ⅳ.召开创立大会
材料一中国经济面临的问题,可以罗列出很多,天量货币、政府和企业的边界、反腐败、资产泡沫……作为国际投资大师、“商品之王”的吉姆.罗杰斯的关注点,却投射在我们惯常的思维之外,他说:“对于中国,我担忧的是水的问题。你们的水问题非常严重。”材料二河北沧
定势会妨碍迁移学习。
下面关于C语言程序的描述,正确的是(55)。
Africaisthesecondlargestcontinentintheworld.YetmuchofAfricahasnotbeendevelopedbymanintofarmsandcities.One
最新回复
(
0
)