首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件,如图3—87所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按
数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件,如图3—87所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按
admin
2016-03-22
57
问题
数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件,如图3—87所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按钮,则在Text2中显示该数列第40项的值;如果单击“存盘”按钮,则将计算的第40项的值存到考生目录下的out5.txt文件中。(提示:因数据较大,应使用Long型变量。)
注意:在结束程序运行之前必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件sjt5.vbp。 步骤2:编写“计算”按钮的单击事件过程。 参考代码: Private Sub Commandl CliCk() Dim f1 t f2 , f As Long Dim a(40)As Long f1=1:f2=1 a(1)=f1:a(2)=f2 For i=3 To Val(Text1.Text) f=f1+f2 a(i)=f:f1=f2:f2=f Next Text2.Text=a(4 0) End Sub 步骤3:运行程序,在文本框中输入40,并单击“计算”按钮获得一个结果,然后单击“存盘”按钮保存计算结果。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/oMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackStyle属性填充,则应______。
在工具栏的右侧还有两个栏,分别用来显示窗体的当前位置和大小,其单位为twip,1英寸等于______。左边一栏显示的是窗体左上角的坐标,右边一栏显示的是窗体的长X宽。
假定有如下的窗体事件过程:PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Right(a$,5)c$=Mid(a$,1,9)MsgBoxa$,34,b$,c
假定有以下函数过程:FunctionFun(SAsString)AsStringDimslAsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1
在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:PrivateSubCommandl_Click()a=Tex
无论何种控件,都具有一个共同属性。这个属性是()。
随机文件以【】为单位读写。
软件工程研究的内容主要包括:【】技术和软件工程管理。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To2x=x+6NextNextPrintxEndSub程序运
要触发组合框的DblClick事件,只有将组合框的Style属性设置为
随机试题
关于公司原始所有权与法人产权的说法,错误的有()。
Whensheheardthathermotherwassafesheimmediately_______
伸腕关节的肌是
家住A市的李某因经济困难,遂产生抢劫念头,后以打车为名拦住一辆出租车抢走现金1000元。随后,将出租车劫往B市,途中将女司机强奸。强奸后又将车劫往C市路边一偏僻处把司机杀害后抛出车外,恰遇C市治安联防队员进行巡查被抓获。在确定案件管辖权时,A、B、C三市
在实行工程总承包的建设项目中,工程总承包方项目管理的主要任务包括()。
为了保证一个企业管理体制的正常运行,集团的组织结构必须包括()。
下列选项中,历史时代与陶瓷技术对应正确的是:
法制:():稳定相当于():打破:公平
多姿多彩的爱情生活是罗曼蒂克的,但我宁愿你在爱河里只饮一勺。因为真正令人心灵颤动的爱,不能求之于_______的感情中。古今中外许多爱情故事的_______,便由于有真的倾心和忠贞。依次填入横线处最恰当的一项是()。
SalesWhenastoresells【T1】______atacostlowerthanusual,itiscalledasale.Saleslastfor【T2】______.Thenthecosti
最新回复
(
0
)