首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列1,1,2,3,5,8,13,21,…的规律是从第一个数开始,每个数足它前面两个数之和。在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件,如图2-87所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按
数列1,1,2,3,5,8,13,21,…的规律是从第一个数开始,每个数足它前面两个数之和。在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件,如图2-87所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按
admin
2020-07-22
63
问题
数列1,1,2,3,5,8,13,21,…的规律是从第一个数开始,每个数足它前面两个数之和。在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件,如图2-87所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按钮,则在Text2中显示该数列第40项的值;如果单击“存盘”按钮,则将计算的第40项的值存到考生目录下的out5.txt文件中。 (提示:凶数据较大,应使用Long型变量。)
注意:在结束程序运行之前必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘
选项
答案
【操作步骤】 步骤1:打外考生文件夹下的工程文件sjt5.vbp。 步骤2:编写“计算”按钶!的单击事件过程。 参考代码: Private Sub Commandl—C1 ick() Dim f1,f2,f As Long Dim a(40)As Long f1=1:f2=1 a(1)=f1:a f2)=f2 For i=3 To Val(Textl.Text) f=f1+f2 a(i)=f:f1:f2:f2=f Next Text2.Text=a(40) End Sub 步骤3:运行程序,在文本框中输入40,并单击“计算”按钮获得一个结果,然后单击“存盘”按钮保存计算结果。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/k0Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为List1的列表框,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名消失。下列在List1Click事件过程中能正确实现上述功能的语句是
编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerx=10Printfunl(x,12)+xEndSubPrivateFunctionfunl(m
以下叙述中错误的是()。
以下不合法的VisualBasic变量名是
在窗体上画一个组合框,一个命令按钮和一个文本框,其名称分别为Combo1,Commandl和Textl,然后编写如下事件过程:PrivateSubForm_Load()Combo1.AddItem"AAAAA":Combo1.Addltem"BB
下列数据结构中,属于非线性结构的是
设有下面的语句:PrintIIf(x>0,1,IIf(x<0,-1,0))与此语句输出结果不同的程序段是
下面能够将某个变量声明为局部变量的是
在数据处理中,其处理的最小单位是()。
______是构成C语言程序的基本单位。
随机试题
(2012年)关于证券经纪业务的说法,正确的是()。
类风湿关节炎活动期的标志是
A.引起嗜睡B.致使视力模糊C.致使定向力障碍D.引起多尿或多汗E.致使眩晕或幻觉驾驶员应慎用奥美拉唑的原因是()。
在我国银行业风险预警体系实践中,蓝色预警法是一种()。
(2016·河南)教育家()提出:“教师一方面要贡献出自己的东西,另一方面又要像海绵一样,从人民中、生活中和科学中吸取一切优良的东西,然后再把这些优良的东西贡献给学生。”
若人民币汇率持续上涨,可能出现下列哪些现象?()
依次填入横线部分最恰当的一项是()。____________在中国传统文化中,相貌和才华都是分离的,中国文化更注重的是“贤、才、德、礼”,古往今来的经典著作,鲜有对一个人的相貌与才华作对等的判断。____________,就会遭到贻笑了。
最小码字之间的海明距离是一个码字要变成另一个码字时必须改变的最小位数。如果任意码字之间的最小海明距离是d,则所有少于等于(28)位的错误都可以检查出来,所有少于(29)位的错误都可以纠正。
【B1】【B7】
Doyouknowhowtouseamobilephonewithoutbeingrudetothepeoplearoundyou?Talkingduringaperformanceirritates(激
最新回复
(
0
)