首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
现有如下程序: Private Sub Commandl_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Funct
现有如下程序: Private Sub Commandl_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Funct
admin
2019-06-20
27
问题
现有如下程序:
Private Sub Commandl_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 Then
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://kaotiyun.com/show/BvUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
有以下程序段,单击Command1按钮后,屏幕上的输出结果是()。PrivateSubCommand1_Click()Fori=6To9PrintTab(i*i),iNextiEndSub
下面的程序执行时,将把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。在横线处应填写()。PrivateSubCommand1_Click()DiminDataAsStringText1.T
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3—158(a)是输入53后的结果,如图3—158(b)是输入100的结果。已经给出了全部控件
下列循环能正常结束的是()。
下面不能作为结构化方法软件需求分析工具的是
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
在进行逻辑设计时,将E—R图中实体之间联系转换为关系数据库的()。
下面的数写成普通十进制数是()。2.65358979335278D-6
8.6787E+8写成普通的十进制数是()。
随机试题
通信系统中发送设备的功能是匹配信道和()
A:Ilikethisdress.It’sthelatest,buttheproblemistheprice,sortofexpensive.
下列不是HIV抗体检测方法的是
缺铁性贫血
下列税收政策中,在卖方市场情况下会推动房地产价格上涨的是()。
境内A公司受让境内一块土地使用权,支付给转让方1300万元,受让过程中支付了相关税费13万元;2015年4月将该土地使用权转让给境外B公司,转让价为1600万元,交易过程中支付了相关税费19万元。则A公司应缴纳的营业税为()万元。
患者,男性,24岁。因气促1周就诊,查体:颈静脉怒张,血压90/65mmHg,心界向两侧扩大,心率120次/分,律齐,心音遥远,肝肋下3指,移动性浊音(-),最可能的诊断是()。
在数据文件in.dat中已存有200个正整数,且每个数均在1000至9999之间。函数readDat()已读取这200个数并存放到数组aa中。请编写函数jsSor1(),其函数的功能是:要求按每个数的后三位的大小进行升序排列,如果出现后三位相等的数值,则对
Naturalflavoringsandfragrancesareoftencostlyandlimitedinsupply.Forexample,thevitalingredientinarosefragrance
TheEnglishlanguage,likealllanguages,hasevolvedovertime.OldEnglish(OE),developedfromtheGermanicbranchofIndo-Eu
最新回复
(
0
)