首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考牛目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考牛目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
admin
2016-03-22
38
问题
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考牛目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按钮,则在Text2中显示该数列第40项的值。如果单击“存盘”按钮,则将计算的第40项的值存到考生目录下的out5.txt文件中。 (提示:因数据较大,应使用Long型变量。)
注意:在结束程序运行之前,必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件sit5.vbp。 步骤2:编写“计算”按钮的单击事件过程。 参考代码: Private Sub Commandl C1 i ck() Dim f As Long a(1)=1 a(2)=1 For i=3 To Val(Textl.Text) f=a(i一2)+a(i一1)+1 a(i)=f Next Text2.Text=f End Sub 步骤3:运行程序,在文本框中输入40,并单击“计算”按钮获得一个结果,然后单击“存盘”按钮保存计算结果。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/91J0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
代码窗口分为左右两栏,左边一栏称为______,右边一栏称为过程框。
3下面程序的运行结果是()。OptionBase1PrivateSubCommandl_Crick()Dimx,y(3,3)x=Array(1,2,3,4,5,6,7,8,9)Fori=1To3
把窗体的KeyPreview属性设置为True,然后编写如下事件过程:PrivateSubForm_KeyPress(KeyAsciiASInteger)DimchAsStringch=Chr(KeyAscii)
文本框的ScrollBars属性设置为非零值,却没有效果,原因是()。
决定一个窗体有无控制菜单的属性是()。
下列不属于VisualBasic特点的是()。
下面程序的功能是统计字符串中"i"的个数,请填空。SubCOU()DimnAsIntegera$="BeijingUniversityofTechnology"n=Len(a$)Fori=1Ton
随机试题
在考生文件夹下有一个数据库文件“samp3.accdh”,其中存在已经设计好的表对象“tEmployee”和查询对象“qEmployee”,同时还设计出以“qEmployee”为数据源的报表对象“rEmployee”。请在此基础上按照以下要求补充报表设计。
下列哪个是挥发酸
临床进行淋巴结触诊检查应注意
在我国的新疆维吾尔自治区,如果刑事诉讼的当事人中有汉族人,也有维吾尔族人,那么:
关于主、副井筒位置与工业广场位置确定的基本原则,说法正确的是()。
(2013年)甲公司和乙公司为非关联企业。2012年5月1日,甲公司按每股4.5元增发每股面值1元的普通股股票2000万股,并以此为对价取得乙公司70%的股权;甲公司另以银行存款支付审计费、评估费等共计30万元。乙公司2012年5月1日可辨认净资产公允价值
对邮电部门出售手提电话、寻呼机并为用户提供无线通讯服务,其所得收入应按( )。
滚动预算能够使预算期间与会计期间相配合,便于考核预算的执行结果。()
某市政府经专家论证和环保评价后,决定在所辖某区建生活垃圾焚烧发电厂,引起周围居民强烈反对,如果你是该市政府相关部门的丁作人员,你认为应采取的正确措施是()。
亚里士多德说:“吾爱吾师,吾更爱真理!”牛顿说:“以柏拉图为友,以亚里士多德为友,但更重要的是以真理为友”。根据你的理解,写一篇800字左右的议论文。以“论真理”为副标题,主标题自拟。要求观点鲜明,文字通顺,结构合理,议论有说服力。
最新回复
(
0
)