首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”
admin
2017-09-20
50
问题
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第n项的值,并在文本框中显示,n是选中的单选按钮后面的数值(提示:因计算结果较大,应使用长整型变量)。
注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 Private Sub Commandl Click() Dim a()As Long Dim i As Integer Dim n As Integer ’Op1.Count是单选按钮数目,这里用的是控件数组 For i=0 To Op1.Count一1 ’判断哪一项被选择,把它后面的数值赋给n,确定n值 If Opl(i).Value=True Then n=Val(Opl(i).Caption) Exit For End If Next ReDim a(n)’重新申请空间,这里是动态申请 a(1)=1 a(2)=1’数列第一项、第二项值确定 For i=3 To n a(i)=a(i一1)+a(i一2)’后一项值是前两项值之和 Next Text1.Text=a(n) End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/jkGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimcAsIn
当把框架的什么属性设置为False时,其标题会变灰,框架中所有的对象均被屏蔽
在VisualBasic中按文件的访问方式不同,可以将文件分为顺序文件,随机文件和【】。
在窗体上有一个命令按钮,然后编写如下事件过程 PrivateSubCommand1_cickc() a=InputBox("enterthefirstinteger") b=InputBox("enterthesecon
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Fomil中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger.则以下叙述中正确的是
为了使图片框的大小可以自动适应图片的尺寸,则应______。
通过文本框()事件过程可以获取文本框中输入字符的ASCII码值。
使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To3al
随机试题
下列不属于非随机抽样的是()
主持评定工作和对焊接及试验结果进行综合评定的人员应是()。化工厂里的某些设备,如已组装好的换热器,可采用()的防腐蚀涂层方法施工。
某桥梁工地的简支板梁架设,由专业架梁分包队伍架设。该分包队伍用两台50t履带吊,以双机抬的吊装方式架设板梁。在架设某跨板梁时,突然一台履带吊倾斜,板梁砸向另一台履带吊驾驶室,将一名吊车驾驶员当场砸死,另有一人受重伤。事故发生后,项目经理立即组织人员抢救伤员
教育目的一经确立,就会成为人们行动的指南。这说明教育目的具有()。
立榜样、树标兵和杀一儆百、杀鸡儆猴利用的原理是观察学习中的()
TheTheoryofContinentalDrifthashadalongandturbulenthistorysinceitwasfirstproposedbyAlfredWegenerin1910.(46)
WhatareHenryCountyresidentsaskedtodo?
PASSAGETHREEWhatisthenameofanothercapsule?
A、Heagreeswiththewoman.B、Heisagoodlecturerhimself.C、HeisfondofProfessorSmith.D、Hepartlyagreeswiththewoman.
Individualsandbusinesseshavelegalprotectionforintellectualpropertytheycreateandown.Intellectualproperty【C1】______f
最新回复
(
0
)