首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下数列:1.1.2.3.5.8.13.21…的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vhp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”
以下数列:1.1.2.3.5.8.13.21…的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vhp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”
admin
2018-09-19
61
问题
以下数列:1.1.2.3.5.8.13.21…的规律是从第3个数开始,每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vhp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第n项的值,并在文本框中显示,n是选中的单选按钮后面的数值(提示,因计算结果较大,应使用长整型变量)。
注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得-个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub Command1_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 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:调试并运行程序,关闭程序后按题目要求存盘。
解析
单选按钮数组常用于提供唯一选择,Value属性值决定每个单选按钮的选中状态:False为未选中,True为选中,Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0,终值应为3)中逐一检查每个单选按钮是否被选中,用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择,使单选按钮数组中的下一个按钮被选中。如果当前已经选中最后一个单选按钮,则将n赋值为0,重新从单选按钮数组的第一个元素开始。
转载请注明原文地址:https://kaotiyun.com/show/32Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设变量MyName(字符串型),Age(整型)分别表示一个人的姓名和年龄,要设计一个逻辑表达式,当该人姓张,并且超过60岁,则表达式的值为True,下面正确的是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommand1_Click() Dims1AsString,s2AsString Open"
表达式12/2\4的值是( )。
在设计阶段,为了设置某控件的Left属性,可使用的方法是
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。
关于水平滚动条,如下叙述中错误的是( )。
下列关于栈的叙述中,正确的是
有如下数据定义语句:DimX,YAsInteger以上语句表明( )。
VB变量x!的数据类型是
设数据集合为D={1,3,5,7,9},D上的关系为R,下列数据结构B=(D,R)中为非线性结构的是
随机试题
根据田径竞赛日程编排原则,下列说法错误的是()。
下列不属于生产预测方法的是()
石菖蒲可用于治疗的病症有
下列哪一项不属于过敏性紫癜的好发部位
与涉外买卖合同有最密切联系地的法律是()。
甲公司2011年1月10日开始自行研究开发无形资产,12月31日达到预定用途。其中,研究阶段发生职工薪酬60万元、计提专用设备折旧80万元;进入开发阶段后,相关支出符合资本化条件前发生的职工薪酬60万元、计提专用设备折旧60万元,符合资本化条件后发生职工薪
在开展“好玩的水”主题活动时,教师在科学探索区的墙面上安装了高低不同的水管。一开始,孩子们乐此不疲地将装好的水从水管高处往下倒,看着水流下来十分兴奋。玩了几天后,孩子就没兴趣了。此时,教师为幼儿提供了观察记录表,还投放了不同的运水工具,如各种管子、塑料袋、
日本的神经生物学教授认为:“如今的年轻人正在变傻”这是因为“电脑导致记忆力下降”。下列哪项无助于上述的解释?
鉴定测验不涉及确定测验的
打开考生文件夹下的演示文稿yswg.pptx,按照下列要求完成对此文稿的修饰并保存。第一张幻灯片的主标题文字的字体设置为“黑体”,字号设置为57磅,加粗,加下划线。第二张幻灯片图片的动画设置为“进入_飞入”、“自右侧”,标题和文本动画都设置为“进入_飞
最新回复
(
0
)