首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列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
60
问题
数列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://kaotiyun.com/show/gtTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列处理中与队列有关的是()。
下列叙述中正确的是()。
在线性表的链式存储结构中,其存储空间一般是不连续的,并且()。
有下面的程序段:x=InputBox("字符串","输入","请输入")Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键,则输出内容是()。
窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框,窗体的单击事件过程如下:PrivateSubForm_Click()CD1.DialogTitle="改变颜色"CD1.Color=Form1.BackColorCD1.Act
在用菜单编辑器设计菜单时,必须输入的项是()。
数据库系统的三级模式不包括( )。
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“XSLNCER
下面不属于软件需求分析阶段主要工作的是
表达式12/2\4的值是( )。
随机试题
()虽不能保证恒定的传动比,但传动平稳。
常引起子宫内膜增生的卵巢肿瘤是
为防止脐带脱垂,胎膜早破的孕妇,应采用的卧位是
(2005年)在双缝干涉实验中,两缝间距离为d,双缝与屏幕之间的距离为D(D>>d)。波长为λ的平行单色光垂直照射到双缝上,屏幕上干涉条纹中相邻暗纹之间的距离是()。
某工程桩基的基底压力p=120kPa,地基土为淤泥质粉质黏土;天然地基承载力特征值fak=75kPa,用振冲碎石桩处理后形成复合地基,按等边三角形布桩,碎石桩桩径d=0.8m,桩距s=1.5m,天然地基承载力特征值与桩体承载力特征值之比为1:4,则振冲碎
当仲裁委员会依法对合同争议作出裁决后,若一方当事人不执行此裁决,则另一方当事人有权请求()。
发电机是根据电磁感应原理,通过转子磁场和定子绕组的相对运动,将机械能转变为电能。其按照()可划分为汽轮、水轮、柴油和燃气轮发电机。大型锅炉的汽包吊装多数采用()方法。
对求助者形成初步印象的工作程序包括()。
WhatisTheWesternTeacher?
A、Approximately1.8milliontons.B、Approximately18milliontons.C、Approximately8milliontons.D、Approximately80millionto
最新回复
(
0
)