首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图2.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图2.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
admin
2020-02-27
48
问题
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图2.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按钮,则在Text2中显示该数列第40项的值。如果单击“存盘”按钮,则将计算的第40项的值存到考生目录下的out5.txt文件中。(提示:因数据较大,应使用Long型变量。)
注意:在结束程序运行之前,必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sit5.vbp。 步骤2:编写“计算”按钮的单击事件过程。 参考代码: Private Sub Commandl—Click() 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/2zx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有栈S和队列Q,初始状态均为空。首先依次将A,B,C,D,E,F入栈,然后从栈中退出三个元素依次入队,再将X,Y,Z入栈后,将栈中所有元素退出并依次入队,最后将队列中所有元素退出,则退队元素的顺序为()。
下面属于白盒测试方法的是()。
下列说法中错误的是()。
在用菜单编辑器设计菜单时,必须输入的项是()。
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=20Callfun1(x,y)Printx:yEndSubPrivateFunctionf
以下不能用形状控件画出的图形是()。
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框,它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性,满足如下要求:①Text2可以业示多行文本,并且有垂直和
将E-R图转换为关系模式时,实体和联系都可以表示为()。
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是( )。
随机试题
患者,男性,52岁,会计师,1年来间断出现短暂性左侧肢体麻木、无力,持续数分钟后可自行缓解,偶伴有头晕不适。有“高血压病”病史10余年,自行服药控制良好。查体:血压140/85mmHg,左侧肢体肌力Ⅳ级,感觉正常,肌张力正常,病理征阴性。头颅CT检查提示
A.钳夹止血B.结扎止血C.温热盐水纱布压迫止血D.骨蜡填充压迫止血E.药物止血知名血管破裂的终极止血方法是
痰少而黏难于咯出者多为痰白清稀者多属
下列缺铁性贫血的临床表现中,属于组织缺铁表现的是()。
城市防洪工程设计应以城市总体规划及所在()防洪规划为依据,全面规划、综合管理、统筹兼顾、讲求效益。
法人组织应具备的条件包括( )。
某高校的大三学生王某不可以从事期货居间服务。()
下列属于人气型指标的有()。I.PSYⅡ.BIASⅢ.OBVⅣ.WMS
设则dy/dx=________,d2y/dx2=________.
It’sdifficulttoimagineaworldwithoutantibiotics.Theycurediseasesthatkilledourancestorsincrowds,andenableanynu
最新回复
(
0
)