首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考牛目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考牛目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
admin
2016-03-22
53
问题
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考牛目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按钮,则在Text2中显示该数列第40项的值。如果单击“存盘”按钮,则将计算的第40项的值存到考生目录下的out5.txt文件中。 (提示:因数据较大,应使用Long型变量。)
注意:在结束程序运行之前,必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件sit5.vbp。 步骤2:编写“计算”按钮的单击事件过程。 参考代码: Private Sub Commandl C1 i ck() Dim f As Long a(1)=1 a(2)=1 For i=3 To Val(Textl.Text) f=a(i一2)+a(i一1)+1 a(i)=f Next Text2.Text=f End Sub 步骤3:运行程序,在文本框中输入40,并单击“计算”按钮获得一个结果,然后单击“存盘”按钮保存计算结果。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/vMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
代码窗口分为左右两栏,左边一栏称为______,右边一栏称为过程框。
把窗体的KeyPreview属性设置为True,然后编写如下事件过程:PrivateSubForm_KeyPress(KeyAsciiASInteger)DimchAsStringch=Chr(KeyAscii)
以下关于窗体的描述中,错误的是()。
以下关于函数过程的叙述中,正确的是()。
下列不属于VisualBasic特点的是()。
能够获得一个文本框中被选取文本的内容的属性是()。
下列程序弹出对话框中按钮的个数为【】。MsgBox″确认!″,vbAbortRetryignore+vbMsgBoxHelpButton+vbInformation,″提示;″
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To2x=x+6NextNextPrintxEndSub程序运
在窗体上有一个命令按钮,然后编写如下事件过程。PrivateSubCommand1_Click()Dima(5)AsStringFORi=1To5a(i)=Chr(Asc("A")+(i-1))
随机试题
A.降钙素B.阿仑膦酸钠C.雷洛昔芬D.葡萄糖酸钙E.特立帕肽抑制骨破坏,能明显缓解骨痛,适宜伴骨痛的骨质疏松症患者的药物是
下列选项中,可用阴阳互用理论解释的是()。
肝功能严重障碍时,对糖代谢的影响下列哪种是错误的
患者,女性,52岁,缺失,行双端固定桥修复。固定桥试戴人后,桥体下黏膜发白,最可能的原因是
A.7天B.14天C.28天D.84E.91天某药的降解反应为一级反应,其反应速度常数k=0.0076/天,其t0.9是()。
票据保证适用于一切票据。()
如图,是由6个棱长为1个单位的正方体摆放而成的,将正方体A向右平移2个单位,向后平移1个单位后,所得几何体的视图()
被称为“中国17世纪的工艺百科全书”的著作是()。
在这群还显稚嫩、涉世未深的大学生村官身上,我们看到了一个古老而青春中国的身影,看到了一个伟大民族的脊梁和______,看到了“80后”一代的主流,看到了广大农村和一个国家可以______的美好未来。填入横线部分最恰当的一项是()。
OnApril20,2000,inAccra,Ghana,theleadersofsixWestAfricancountriesdeclaredtheirintentiontoproceedtomonetaryun
最新回复
(
0
)