首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列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
2019-05-14
61
问题
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3—192所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按钮,则在Text2中显示该数列第40项的值。如果单击“存盘”按钮,则将计算的第40项的值存到考生目录下的out5.txt文件中。 (提示:因数据较大,应使用Long型变量。)
注意:在结束程序运行之前,必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件sjt5.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:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/JUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的输出结果为()。S1=“1”:S2=“2”:S1=Val(S1)+VaI(S2):S2=Val(“12”)IfS1◇S2ThenPrintS1-S2ElsePrintS2一S1
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType
关于MDI窗体下列说法正确的是()。
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,如图1所示,对应的事件过程是()。
在文本框中,要设置显示的文本颜色,应该设置()属性。
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框()。PrivateSubCommandlClick()Text1.Text=“程序设计”Text1.SetFocusEndSub
考生文件夹下的工程文件sit5.vbp中的窗体如图3.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:①
随机试题
投资组合保险策略在股票市场上涨时降低股票投资比例,而在股票市场下跌时提高股票投资比例。( )
对糖肽类药物不敏感的是
于先生,建筑工人,左下肢外伤后未得到及时、正确地处理,而导致感染破伤风。为该病人更换敷料后,污染敷料的处理方法是
属于全民所有制企业权利的是()。
(2005年)对下列哪些案件人民法院可以适用先予执行?
货物进口报检时,入境《货物报检单》有关内容填写情况如下,请对下列各题作出判断:“货物总值”:5600美元。()
中国四大文庙是指()。
先进的文化往往具有灯与火的功能。灯可照亮前进的路,火可温暖渴望的心。歌德在《莎士比亚命名日》中曾这样表达他对文化感染力的感悟:“他的著作我读了第一页,就被他终身折服;读完他的第一个剧本,我仿佛一个天生的盲人,瞬息间,有一只神奇的手给我送来了光明。”文化就是
下列可以作为我国古代天子祭祀礼器的有:①鼎②爵③簋④璧⑤璜⑥璋
刘备和孙权联合起来,巧用火攻,战胜了强大的曹操军队。
最新回复
(
0
)