首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序功能为:在文本框Text1中输入一个正整数N后,单击“计算”按钮,则计算11+22+33+…+NN,并将计算结果显示在Text2中。程序中的函数f可以计算mm的值。 在给出的窗体文件中已经有了全部控
在考生文件夹下有一个工程文件sjt5.vbp。程序功能为:在文本框Text1中输入一个正整数N后,单击“计算”按钮,则计算11+22+33+…+NN,并将计算结果显示在Text2中。程序中的函数f可以计算mm的值。 在给出的窗体文件中已经有了全部控
admin
2017-09-22
35
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序功能为:在文本框Text1中输入一个正整数N后,单击“计算”按钮,则计算1
1
+2
2
+3
3
+…+N
N
,并将计算结果显示在Text2中。程序中的函数f可以计算m
m
的值。
在给出的窗体文件中已经有了全部控件,但程序不完整。要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,并编写相应的程序,实现程序的功能,并且必须在运行时计算N=8时的结果。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,必须计算N=8时的结果,否则无成绩。
选项
答案
步骤1:打开考生文件夹下的工程文件sjt5.vbp,在码编辑窗口的指定位置输入以下代码。参考代码: PriVate Sub Command1_Click() ’======考生编写程序开始====== Dim i,j As Integer,k As Long i=Text1.Text k=0 For j=1 To i k=k+f(j) NeXt Text2.Text=k ’====考生编写程序结束====== Open App.Path & "\Out5.dat" For Output As #1 Print #1,Text1,Text2 Close #1 End Sub 步骤2:在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: s=1 s=s*m f=s 步骤3:按
键运行程序,在文本框中输入8,单击“计算”按钮。 步骤4:按要求将文件保存至考生文件夹中。
解析
函数f利用一个For循环来计算m的m次幂,需要先设置一个累乘积变量初值为1,然后循环m次,在循环中每次在累乘积上乘以m。循环结束时将累乘积作为函数返回值。
在“计算”按钮的单击事件中,要求一个数列的累加和,需要先设置累加和变量初值为0,然后使用For循环循环n次,在每次循环中为累加和变量累加f(j),循环结束后累加和变量的值即为所求。
转载请注明原文地址:https://kaotiyun.com/show/SjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读下列程序: PrivateSubCommand1_Click() DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintH(k); Nexti EndSub Fu
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Fomil中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger.则以下叙述中正确的是
为了使命令按钮(名称为Command1)右移200,应使用的语句是
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
下列语句的输出结果是【】。PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")
以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"error"。请填空。PrivateSubCommand1_Click()DimaAsInteger,bAsSt
窗体上有两个按钮,执行程序后按Cancel按钮的输出结果是______。PrivateSubCommandl_Click()Print“北京”;EndSubPrivateSubCommand2,_Click()
随机试题
一项研究通过比较某市在参与创建全国卫生城市前后的环境空气质量发现,该市在参与创建全国卫生城市之后环境空气质量明显优干之前,因此该研究得出结论,创建全国卫生城市有助于提升该市的环境空气质量。以下哪项如果为真,最能支持上述结论?
患者,男,72岁。牙列缺失8年,曾做全口义齿修复,现义齿损坏要求重新修复。口腔检查时见患者上颌弓小、下颌弓大,造成此现象最可能的原因是由于
()是一种保障居民基本生活需要的制度,是我国社会保障体系中最基本的内容。
审核无误的原始凭证是登记账簿的唯一依据。()
根据《中华人民共和国海关法》的规定,中华人民共和国海关是属于()。
编辑检查付印清样的工作主要包括()等。
根据以下材料,回答下列问题。 2009年,某省全年粮食作物播种面积253.85万公顷,比上年增长1.5%;糖蔗种植面积58万公顷,下降0.2%;油料种植面积33.14万公顷,增长2.3%;蔬菜种植面积84万公顷,增长2.3%。 2009年,海水养殖
某单位经常有工作人员在上班期间玩游戏、上网等,你认为是什么原因造成的?有什么有效的解决办法?
【B1】【B7】
Sometimesthingshappentoyouthatseemhorrible,painful,andunfairatfirst,butuponreflectionyoufindthatwithoutoverc
最新回复
(
0
)