首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sjt4.vbp,其中的列表框中已经有两个列表项(均为数字)。程序功能是在文本框中输入一个整数n(例如30),单击命令按钮,则在列表框中追加若干数字,所有追加的数字按以下规律排列:每个数是前面两个数之和,最后一个数是满足上述规律的最
在考生文件夹下有工程文件sjt4.vbp,其中的列表框中已经有两个列表项(均为数字)。程序功能是在文本框中输入一个整数n(例如30),单击命令按钮,则在列表框中追加若干数字,所有追加的数字按以下规律排列:每个数是前面两个数之和,最后一个数是满足上述规律的最
admin
2016-01-31
78
问题
在考生文件夹下有工程文件sjt4.vbp,其中的列表框中已经有两个列表项(均为数字)。程序功能是在文本框中输入一个整数n(例如30),单击命令按钮,则在列表框中追加若干数字,所有追加的数字按以下规律排列:每个数是前面两个数之和,最后一个数是满足上述规律的最大的小于n的数。如图3-186(a)所示。若再输入一个更大的整数(如100),单击命令按钮,则按上述规律继续追加数字。如图3-186(b)所示。
程序已经给出但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
选项
答案
审题分析 根据题目要求,需要循环向列表框中追加数据,每一次追加的是列表项最后两项之和。列表框的最后一项是b=List1 List(List1.ListCount-1),倒数第二项是a=List1.List(List1.ListCount-2)。这两项加起来后的c如果不大于n,就代表c应该添加进列表框仍然继续循环,故此原来的b就变成了倒数第二项即a,c的值就是最后一项即b,然后调用列表框的AddItem方法将c加入列表框中。 操作步骤 步骤1:打开考生文件夹下的工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: a=Val(List1.List(List1.ListCount-2)) a=b List1.AddItem c 步骤2:按要求将文件保存至考生文件夹中。 考点链接 选择控件。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/tuLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
只能用来显示字符信息的控件是()。
当标签的标题内容太长,需要根据标题自动调整标签的大小时,应设置标签的()属性为True。
只能用来显示文本信息的控件是()。
用Print方法在Form1窗体中显示出4个#号的正确代码为()。
执行下面程序,第一行输出结果是[],第二行输出结果是[]。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriv
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。PrivateSubCommand1_Click()Dima
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性
如果在C盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open"C:\studata.dat"ForAppendAs#1之后,将
假定有一个菜单项,名为Menuhem,为了在运行时使该菜单项失效(变灰),应使用的语句为
随机试题
2009年9月15日签发的支票,权利消灭时效期限为()
Thedoghasoftenbeenanunselfishfriendtoman.Itisalwaysgratefultoitsmaster.Ithelpsmaninmanyways.Certainbreed
食管癌分型不包括
A.肱动脉损伤B.腘动脉损伤C.尺神经损伤D.腓总神经损伤E.股骨头缺血性坏死髋关节脱位手法复位后可发生
试戴时,可采用如下方法判断颌位关系是否正确,除了
下列表述放在“我们要学习文件”之后,可以消除这句话歧义的一项是()。
“三不伤害”原则表述的顺序是__________。
商业银行保持合理的资产负债分布结构有助于降低流动性风险,下列做法恰当的有()。
大自然能给我们许多启示:青松不惧风雪,是在告诉我们做人要坚毅刚强;成熟的稻穗低着头,那是在启示我们要谦虚:一群蚂蚁抬走骨头,那是在启示我们要________。填入划横线部分最恰当的一项是:
建立国土空间开发保护制度,需要完善最严格的()
最新回复
(
0
)