首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”
admin
2015-06-30
35
问题
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第n项的值,并在文本框中显示,n是选中的单选按钮后面的数值(提示:因计算结果较大,应使用长整型变量)。
注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:编写程序代码。 参考 Private Sub Command1_Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To Op1.Count - 1 If Op1(i).Value = True Then n = Val(Op1(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/WcQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述正确的是
为了对多个控件执行操作,必须选择这些控件。下列不能选择多个控件的操作是
执行语句Open"Tel.dat"ForRandomAs#1Len=50后,对文件Tel.dat中的数据能够执行的操作是
下列程序执行后,变量S的值为DimsAsLong,xAsIntegers=0Forx=1To10Step2s=s+xNextxText1.Text=s
下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为
执行下列程序后,变量a的值为()DimiAsIntegerDimaAsIntegera=0Fori=lTo100Step2a=a+lNexti
数据结构中,与所使用的计算机无关的是数据的______。
软件开发的结构化生命周期方法将软件生命周期划分成______。
把数学表达式(5x+3)/(2y-6)表示为正确的vB表达式应该是
(1)在窗体Forml上画一个名称为Textl的文本框和一个名称为Labell的标签,程序运行时,在文本框Textl中输入字符,文本框中的字符将值赋到Labell中。注意,本程序代码中不得使用任何变量。程序运行时的窗体界面如图50—l所示。注意:
随机试题
酒精度小于或等于()为无醇啤酒。
市场增长率高,但相对市场占有率低,这种业务是()
产后睡中汗出,甚则湿透衣衫,醒后即止,面色潮红,头晕耳鸣,口燥咽干,渴不思饮,舌质红,苔少,脉细数。宜选用的最佳治法为
哮证发作的主因为
关于施工组织总设计的编制,下列说法中正确的是()。
中央军事委员会主席对全国人民代表大会报告工作。()
某市居民生活用电每月标准用电量的基本价格为每度0.60元,若每月用电量超过标准用电量,超出部分按基本价格的80%收费,某户9月份用电100度,共交电费57.6元,则该市每月标准用电量为()。
某国退休金制度实行“双轨制",即企业员工实行由企业和员工本人按一定标准缴费,而公务员的缴费由国家财政筹资,所有的退休金由国家保险基金统一发放。而目前退休金十年后的支付缺口有20%以上。有人说,让公务员参与缴费,可以有效地缩小这一缺口。上述结论的前提是(
Ourape-menforefathershadnoobviousnaturalweaponsinthestrugglefor【1】intheopen.Theyhadneitherthepowerfulteethno
程序流程图中带有箭头的线段表示的是()。
最新回复
(
0
)