首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下数列: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
28
问题
以下数列: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://jikaoti.com/ti/IQ60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库系统中实现各种数据管理功能的核心软件称为【】。
以下控件可作为其他控件容器的是
在执行KeyPress事件过程时,KeyASCII是所按键的【】值。对于有上档字符和下档字符的键,当执行KeyDown事件过程时,KeyCode是【】字符的ASCII值。
执行语句Open"Tel.dat"ForRandomAs#1Len=50后,对文件Tel.dat中的数据能够执行的操作是
在窗体上画一个名称为Listl的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
代数式对应的VisualBasic6.0表达式是
开发软件时对提高开发人员工作效率至关重要的是()
在窗体上画一个命令按钮,然后编写如下程序(假定变量x是—个窗体级变量)DimxAsIntegerSubinc(aASInteger)X=K+aEndSubPrivateSubCommand1
某二叉树有5个度为2的结点以及3个度为1的结点,则该二叉树中共有【】个结点。
在窗体上绘制两个命令按钮,名称分别为Commandl和Command2,标题分别为“输人”和“调换”,两个标签,名称为Labell和Label2、Caption属性为“调换前:”和“调换后:”,两个名称分别为Text1和Text2的文本框控件。请编写适当
随机试题
声波振动由鼓膜经听骨链传向卵圆窗时
切削设备有()。
拉铲挖土机的挖土特点为()。
2017年全国18个产茶省(区)茶园总面积4588.7万亩,比上年增加近135万亩。贵州、云南、四川、湖北、福建依次是茶园面积最大的五个省份。无性系良种茶园面积比例达60.9%,有机茶园面积比例7.5%。2017年全国茶产量为260.9万吨,比上年增加1
设{an}为正项数列,下列选项正确的是
求
以太网交换机是利用建立和维护______。进行数据交换的。
下列技术中,不属于无线接入技术的是()。
下列选项中,不是Access内置函数的是()。
WhichLowCarbonTechnologyIsNowaReality?A)Withfossilfuelsexpectedtosupplyover70%oftheworld’senergyneedsby204
最新回复
(
0
)