首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为计算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-08-28
23
问题
为计算a
n
的值,某人编写了函数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://jikaoti.com/ti/sY60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
使用ReDimPreserve语句,可以()。
为了在列表框中使用<Ctrl>和<Shift>键进行多个列表项的选择,应将列表框的MultiSelect属性设置为()。
在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下程序:PrivateSubCommand1_Click()A=InputBox("请输入日期(1~31)")t="旅游景点:"_&IIf(A>0An
在窗体上画一个命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*j
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
下列程序段的执行结果为______。K=0ForI=1To3A=I^I^KPrintA;NextI
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是______。
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是【】。
数据库设计包括两个方面的设计内容,它们是______。
下列叙述中不正确的是()。
随机试题
阿奇霉素对酸稳定,胃肠道刺激少,每日可仅给药一次。
司马迁在《李将军列传》中,以汉文帝“惜乎,子不遇时”来评价李广,其主要用意是()
试比较钩藤、羚羊角、天麻三药功效、主治病证的共同点与不同点。
维生素B2与何药合用可减少吸收
工程量清单报价程序中不包括()
社会工作督导老张告诉新来的社会工作实习生小李:“我们在开展工作的时候,不能预先设定服务对象应该过什么样的生活,我们要肯定他们自己独特的生活方式,我们要做的是协助他们发现自己的内在价值,引导他们找到自己想要的生活方式。”在这里老张讲解的是()的主要观点。
教师职业是一种软专业,谁都可以当教师。()
Man:Hi,Janet,Ihearyou’vejustreturnedfromatourofAustralia.DidyougetachancetovisittheSydneyOperaHouse?Woma
ThementalhealthmovementintheUnitedStatesbeganwithaperiodofconsiderableenlightenment.DorotheaDixwasshockedtof
A、Theyconsideredherlazy.B、Theysawsomethingtheyhadneverseen.C、Theyconsideredherfoolish.D、Theysawsomethingfamili
最新回复
(
0
)