首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.192所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.192所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
admin
2018-07-11
28
问题
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.192所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按钮,则在Text2中显示该数列第40项的值。如果单击“存盘”按钮,则将计算的第40项的值存到考生目录下的out5.txt文件中。(提示:因数据较大,应使用Long型变量。)
注意:在结束程序运行之前,必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件夹下的工程文件sjl5.vbp。 步骤2:编写“计算”按钮的单击事件过程。参考代码: Private Sub Command1_Click() Dim f As Long a(1)=1:a(2)=1 For i=3 To Val(Text1.Text) f=a(i-2) +a(i-1)+1 a(i)=f Next Text2.Text=f End Sub 步骤3:运行程序,在文本框中输入40,并单击“计算”按钮获得一个结果,然后单击“存盘”按钮保存计算结果。 步骤4:按要求将文件保存至考生文件夹中。
解析
根据题意,从数列的第三个数开始,每个数是其前两个数之和加1,数列第n项的值可表示为:a(i)=a(i-1)+a(i-2)+1。可以利用For循环语句(循环变量i的初值为3,终值为Text1.Text),从数列的第三个数开始,逐一计算出该数列第3~n项的值,计算表达式为a(i)=a(i-1)+a(i-2)+1。
转载请注明原文地址:https://jikaoti.com/ti/vYy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
考生文件夹下的工程文件sjt5.vbp中有1个初始文本为空的文本框Textl,2个标题分别是“读数据”和“计算”的命令按钮;请添加1个标题为“各行最小数的平均值为”的标签Label2,再添加1个初始文本为空的文本框Text2,如图所示。程序功能如下:
设有如下事件过程:PrivateSubCommandl_Click()Fori=1To5j=IDoPrint“*”j=
设窗体上有2个直线控件Linel和Line2,若使两条直线相连接,需满足的条件是()。
有三个关系R、S和T如下:由关系R和s通过运算得到关系T,则所使用的运算为()。
要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签|b|First中;同时计算矩阵主对角线的元素之和,计算结果显
无论X取何值,均能成立的表达式是
某二叉树中有n个叶子结点,则该二叉树中度为2的结点数为
随机试题
对高钾血症,以下列描述正确的是
下列哪项提示结核病灶的痊愈
15岁男孩,左小腿上段进行性疼痛3个月余,偶有轻微发热。查体:左小腿上段外侧方可触及一质硬包块,有轻微压痛。左下肢X线片示:左侧腓骨骨干边界模糊,存在不规则的破坏区,周围伴“葱皮样”反应骨形成。在采集病史时应特别注意询问
贷款担保的形式中,不包括()。
简述教育观察法的基本步骤。
根据《慈善法》规定,下列关于慈善组织开展公开募捐陈述正确的是()。
已知λ1=6,λ2=λ3=3是实对称矩阵A的三个特征值.且对应于λ2=λ3=3的特征向量为a2=(-1,0,1)T,a3=(1,-2,1)T,求A对应于λ1=6的特征向量及矩阵A.
Portabledevicesarebecominglighterandmoreappealing.Booksarebeing(1)_____intodigitalformbythethousands.Themost
AntsHaveBigImpactonEnvironmentas"EcosystemEngineers"ResearchbytheUniversityofExeterhasrevealedthatantshav
Alovemarriage,however,doesnotnecessarily______muchsharingofinterestsandresponsibilities.
最新回复
(
0
)