首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下数列:1,1,2,3,5,8,13,21的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按
以下数列:1,1,2,3,5,8,13,21的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按
admin
2019-06-24
46
问题
以下数列: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 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/fqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“列表框练习”的窗体上画一个名称为List1的列表框,表项内容依次输入xxx、ddd、mmm和aaa,且以宋体14号字显示表项内容,如图3—10
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
某人设计了如下程序用于计算并输出7!(7的阶乘)PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPritetEnd
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码:PrivateSubText1_KeyPress(KeyAsciiAsInteger)If"A"
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中PPrivateSubCommand1_Click()Open"out.txt"ForOutoutAs#2Print"Text1"
设有下面程序代码:PrivateSubCommand1_Click()DimaAsVarianta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)m=
设a=2,b=3,c=4,d=5,表达式Nota
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click()Dims:a%=100:PrintaEndSub其中变量a和s的数据类型分别是
在菜单编辑器中建立如下图所示的菜单,并为每个菜单项编写了鼠标单击事件过程。关于此菜单,以下叙述中错误的是()。
随机试题
在Windows中,任务管理器不可以用于( )。
化脓性关节炎最早出现的X线骨骼改变是
初产妇,总产程2小时50分钟,胎儿娩出后5分钟胎盘娩出,查胎盘胎膜完整,功底脐下2指,质硬,会阴无裂伤,在产后观察中持续少量鲜红出血,伴有小血块。最大可能的出血原因为下列哪一项
张某,男,28岁。平素体壮,食欲良好,大便偏干,近期因感冒初愈,大便干结加重,数日一行,伴有腹中胀满,面红烦热,口干口臭,唇焦色红,舌红苔黄,脉滑数。该病例中医辨证当为
男性,30岁,腹部砸伤5小时,查体见四肢湿冷,腹肌紧张,全腹压痛、反跳痛。有移动性浊音,肠鸣音消失,该病人目前应进行的处理不包括
以下()不属于质量管理的八项原则。
具有双重绝缘和加强绝缘的电气设备属于Ⅱ类设备,Ⅱ类设备的铭牌上应有(),Ⅱ类设备的电源连接线应符合加强绝缘要求。
下列叙述符合现代生物进化理论观点的是()。
现阶段我国教育目的的重点是()。
Supposeyougointoafruiterer’sshop,wantinganapple-youtakeupone,andonbitingityoufinditissour;youlookatit,
最新回复
(
0
)