首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则
admin
2019-05-14
45
问题
以下数列: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/WHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
请根据以下各小题的要求设计visualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a中(每个
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
在名称为Form1的窗体上添加一个名称为Label1的标签,标签的宽和高分别为2000、300,有边框,并利用属性窗口设置适当的属性,使其标题“等级考试”居中显示,并使标签的外观如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vb
阅读程序:PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=32:y=42CallPCS(x,y)Printx;yEndSubSubPCS(ByValnAsIntege
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MuhiSdect属性设置为
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenPrintx,yExitDoElsex=x+3En
在考生文件夹下有一个工程文件sjt4.vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Text1、Text2的两个文本框,用于接收输入的M和N(要求M<N)。单击名称为Command1、标题为“计算”的命令按钮,
随机试题
患者,女性,48岁。近2年来月经周期紊乱,经期长短不一,经量时多时少。诊断性刮宫示子宫内膜简单型增生过长,诊断为围绝经期无排卵性功血。针对该患者的治疗措施,不妥的是
A.黄芩、蔓荆子B.柴胡、川芎C.吴茱萸、藁本D.葛根、白芷E.羌活、川芎太阳经的引经药为
A.小婴儿低热,突然憋喘,肺部有明显哮喘音B.急起稽留高热,咳嗽喘憋,面色灰白,早期肺部体征不明显C.热型不定,刺激性咳嗽较突出,肺部X线病灶呈游走性D.弛张高热,中毒症状明显,皮肤可见猩红热样皮疹,肺部体征出现早E.发热不规则,咳嗽,无气促或发绀
可复性牙髓炎选用的盖髓剂是A.氢氧化钙B.抗生素+激素C.玻璃离子粘固粉D.聚羟酸锌粘固粉E.氧化锌丁香油糊剂
下列房产中,可以免征房产税的有()。
甲公司是增值税一般纳税人,适用增值税税率为17%,发生的有关债务重组经济业务如下:(1)2016年1月1日与丙银行协商并达成协议,将丙银行于2015年1月1日贷给甲公司的3年期,年利率为9%,本金为500万元的贷款进行债务重组,丙银行对该项贷款未计提减值
中国人民解放军军歌是()。
某班同学在一次测验中,全班平均分为75分,女生的平均成绩为84分,这比男生的平均成绩高20%,全班人数可求.(1)男生比女生多80%,女生得分之和为1200多分(2)男生共有27%人
销售库中有"产品表"(产品编码,产品名称,单价),另有"新品表"(产品编码,产品名称,单价)。根据产品编码,一件产品只在"新品表"中出现,则要将该产品追加到"产品表"中;如果一件产品在"产品表"和"新品表"中同时出现,则用"新品表"中的单价修改"产品表"中
ExchangeRates:ABriefHistoryofExchangeRatesForcenturies,thecurrenciesoftheworldwerebackedbygold.Thatis,a
最新回复
(
0
)