首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列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
76
问题
数列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全国计算机二级
相关试题推荐
下列说法中,错误的是()。
已知列表框控件List1中已放入若干表项,下列关于List1的叙述中错误的是()。
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=20Callfun1(x,y)Printx:yEndSubPrivateFunctionf
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮.则将考生文件夹下in3.dat文件中的100个正整数读入数组a中。②单击“计算”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的
设有以下过程:PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
表达式Abs(-5)+Len(“ABCDE”)的值是()。
某二叉树共有400个结点,其中有100个度为l的结点,则该二叉树中的叶子结点数为()。
算法的时间复杂度是指()。
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)()。
为达到把a、b中的值交换后输出的目的,某人编程如下:PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b)Printa,bEndSubPr
随机试题
下列关于G蛋白的叙述,错误的是
患者,男,46岁。腹痛腹泻2天,日泻10余次水便,经治已缓,目前口渴心烦,皮肤干瘪,眼窝凹陷,舌淡白苔薄黄,脉细无力。其证候是()
关于非法吸收公众存款罪,下列说法正确的是:()
对房地产经纪信息的鉴别,就是对房地产经纪信息的()等进行分析。
[1999年第139题]按《住宅设计规范》规定,下列各部位门洞口的最小尺寸哪一条不正确?
4Ps营销策略包括()。
车轮(压制钢车轮)(汽油发动机小轿车专用)
决定商品流通中货币需要量的因素有()。
根据下列资料,回答问题。2015年A区域粮食总产量58957万吨,比上年增加1836万吨,增长3.2%,其中,夏粮产量12995万吨,比上年增长2.8%;早稻产量3329万吨,增长1.6%;秋粮产量42633万吨,增长3.5%。2015年末,该区
ReligiousceremoniesAwereperformedtomarkimportantBstagesoflife(births,marriages,deaths)andCtoaskthespiritsforhel
最新回复
(
0
)