首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图1-287所示。请编写适当的事件过程完成以下功能:选中一个单选按钮后,单击“计
数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图1-287所示。请编写适当的事件过程完成以下功能:选中一个单选按钮后,单击“计
admin
2019-01-16
60
问题
数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图1-287所示。请编写适当的事件过程完成以下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列的第n 项的值,并显示在文本框中,n是选中的单选按钮后面的数值。(提示:因计算结果较大,应使用长整型变量。)
注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt5.vbp。 步骤2:编写“计算”按钮的单击事件过程。 参考代码: Private Sub Command1_Click() Dim a As Long, a1 As Long, a2 As Long Dim k As Integer, n As Integer For k = 0 To 2 If Op1(k).Value Then n = Val(Op1(k).Caption) End If Next k a1 = 1 a2 = 1 For k = 3 To n a = a1 + a2 a1 = a2 a2 = a Next k Text1.Text = a End Sub 步骤3:运行程序,选中一个单选按钮,并单击“计算”按钮获得一个结果,然后使用窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/ZuFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。
有下面程序代码:PrivateSubCommand1_Click()a=Array(1,2,3,4,5,6,7,8,9,10)n=UBound(a)Fork=0ToUBound(a)
下列与队列结构有关联的是
下列关于滚动条的叙述中,错误的是
A、PrivateSubForm_Click()x=InputBox("输入界面","请输入数据",20)EndSubB、PrivateSubForm_Click()x=InputBox("请输入数据","输入界
设有如下事件过程:PrivateSubForm_Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程
为了把命令按钮设置为图形格式,其Style属性值应为
下列不属于计时器控件属性的是
(1)在名称为Form1的窗体上添加一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。同时建立一个下拉菜单,其名称为File,标题为“文件”,此菜单含有一个子菜单项,标题为“显示列表框”,名称为Show,初始状态为被选中,运
算法的时间复杂度是指
随机试题
在肘关节横断层面上,自上而下出现_______________关节、_______________关节和_______________关节。
A.补气升提B.补中益气C.益气升提D.补肾固脱E.益气固脱
下列关于酊剂的说法正确的是
诊断早期慢性肺源性心脏病的主要依据是()
A.国家食品药品监督管理局B.县级以上工商行政管理部门C.省、自治区、直辖市药品监督管理部门D.国家卫生行政管理部门对药品广告审查机关的药品广告审查工作进行指导和监督的是()
对于系统故障风险的防范对策有()。
台湾省民俗中,认为送扇子是帮助别人。()
情感是客观事物是否符合人的需要、愿望和观点而产生的()。
以下不属于十一五期间,我国取得的标志性重大成果的是()。
BecarefulwithJohn;Ithinkhehas_______motivesforbeingsogenerous.
最新回复
(
0
)