首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
现有如下程序: Private Sub Command1_Click() s=0 For i=1 To 5 S=s+f(5+i) Next Print s End Sub Public Func
现有如下程序: Private Sub Command1_Click() s=0 For i=1 To 5 S=s+f(5+i) Next Print s End Sub Public Func
admin
2018-09-19
71
问题
现有如下程序:
Private Sub Command1_Click()
s=0
For i=1 To 5
S=s+f(5+i)
Next
Print s
End Sub
Public Function f(x As Integer)
If x>=10 Thcn
t=x+1
Else
t=x+2
End If
f=t
End Function
运行程序,则窗体上显示的是( )。
选项
A、38
B、49
C、61
D、70
答案
B
解析
程序中过程f的功能是参数值大于等于10时,返回参数加1的值,否则返回参数加2的值。因此按钮事件中s值的计算过程如下:
i=1时,s=0+f(5+1)=8;
i=2时,s=8+f(5+2)=8+9=17;
i=3时,s=17+f(5+3)=17+10=27;
i=4时,s=27+f(5+4)=27+11=38;
i=5时,s=38+f(5+5)=38+11=49:
因此最终在窗体上输出的是49。
转载请注明原文地址:https://www.kaotiyun.com/show/1EFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
现有如下语句:x=IIf(a>50,Int(a\3),aMod2)当a=52时,x的值是
有下面程序代码:PrivateSubCommand1_Click()DimaAsStringa="COMPUTER"n=search(a,"T"):PrintIIf(n=0,"未找到",n)EndSubPrivateFu
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
在窗体上画一个名称为Command1的命令按钮,一个名称为Text1的文本框数组(含4个文本框,下标从0开始),然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntege
在窗体上画2个文本框(名称分别为Text1和Text2),一个命令按钮(名称为Command1)。并定义以下记录类型和变量:PrivateTypeTeacherIDAsIntegerNameAsString*10En
下面程序的功能是找出这样一个三位整数:它等于每位数字的阶乘之和,例如145就是这样的数(即145=1!+4!+5!)PrivateSubCommand1_Click()DimxAsInteger,iAsInteger,
函数表达式Sgn(-10)的值是
下面属于黑盒测试方法的是
假定有以下循环结构:DoUntil条件表达式 循环体Loop则以下正确的描述是( )。
随机试题
A.食管癌切除加食管胃吻合术B.胃造瘘术C.放射疗法D.化学疗法E.中医中药治疗患者男,50岁。进食后吞咽困难3个月余,目前不能进流质食物,人渐消瘦,体查:一般情况差,左锁骨上可扪及拇指头大小质硬淋巴结,食管镜活检报告为鳞癌Ⅲ级。应行
有关智能减退,下列哪项错误
某残疾人自强不息,写出文学巨著一部,并获稿酬10万元。根据税法他应当:
当采用插入式振捣器时,混凝土浇筑层厚度应控制为:
CPU和RAM是计算机的外部设备。()
纳税义务人发现多缴税款的,自缴纳税款之日起可以书面形式要求海关退还多缴的税款并加算银行同期活期存款利息,其期限是:
由于海关方面的原因造成少征或者漏征税款,海关应当自缴纳税款或者货物放行之日起3年内,向收发货人或者他们的代理人补征。由于收发货人或者他们的代理人违反规定,而造成的少征或者漏征,海关在1年内可以追征。
诱导需求,医生在涉及自身经济利益的服务中,医生既是顾问,又是卫生服务的提供者,因此可以创造额外需求,即供方创造需求。根据上述定义,下列说法不正确的是:
设变量x和y为整型变量,若有函数调用为"fun(&x,&y)",则下列选项中,能够作为函数fun原型声明的是
Onceyouarehiredbyacompany,youwillprobablyhavebusinesscards.Abusinesscardisprintedwithyourname,rifle,compan
最新回复
(
0
)