首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列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
79
问题
数列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://kaotiyun.com/show/vMLp777K
本试题收录于:
二级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)
以下关于窗体的描述中,错误的是()。
假定有如下的窗体事件过程:PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Right(a$,5)c$=Mid(a$,1,9)MsgBoxa$,34,b$,c
代数式eXSin(30°)2x/(x+y)Inx对应的VisualBasic表达式是()。
决定一个窗体有无控制菜单的属性是()。
下列不属于VisualBasic特点的是()。
软件工程研究的内容主要包括:【】技术和软件工程管理。
随机试题
甲公司与乙公司签订合同,出售10吨桃子,约定甲公司将货物运至乙公司。甲公司与丙公司签订合同,由丙公司将桃子装车运到乙公司。丙公司派其员工丁开车送货,在运输途中遭遇泥石流,丁的汽车被巨石打下公路,桃子全被压烂。桃子的损失由()。
一般进出口货物报关程序。
个人征信查询管理的内容不包括()。
施工图预算的编制方法有()。
分析歌曲《月之故乡》谱例。写出:调式调性;
某突击队150名工人准备选一名代表上台领奖。选举的方法是:让150名工人排成一排,由第一名开始报数,报奇数的人落选退出队列,报偶数的人站在原位置不动,然后再从头报数,如此继续下去,最后剩下的一名当选。小李非常想去,他在第一次排队时应该站在队列的什么位置上才
抗战时期中国共产党的教育政策是:国民教育第一,干部教育第二。
修改宪法的权力只能由()行使。
南京国民政府的成文法主要由六部法律及其相关单行法律构成,人们习惯将这一法律称为六法体系,下列关于六法体系的表述,正确的是()(2016年一综一第63题)
Pursuingacareerisanessentialpartofadolescentdevelopment."Theadolescentbecomesanadultwhenhe【C1】______arealjob.
最新回复
(
0
)