首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
41
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7
在窗体上有一个命令按钮Command1,编写如下程序:PrivateSubCommand1_Click()Printpp1(3,7)EndSubPublicFunctionpp1(xAsSingle
启动窗体在【】对话框中指定。
为命令按钮的Picture属性装入了一个图片,但却发现图片没有显示出来,要使图片显示出来,应设置它的【】属性。
程序执行结果s的值是【】。PrivateSubsub1(ByvalpAsInteger)p=p*2EndSubPrivateSubCommand1_Click()DimiAsIntegeri=3Callsub1(i
窗体上有两个按钮,执行程序后按Cancel按钮的输出结果是______。PrivateSubCommandl_Click()Print“北京”;EndSubPrivateSubCommand2,_Click()
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
随机试题
男性,20岁。1年来中上腹时有疼痛,痛向背部放射,尤以夜间为甚,且先后有3次黑便。G1无异常发现,该患者的诊断宜考虑为
需要限期手术的疾病是
强迫人格患者的主要特点为
交通、钢铁、机械、石油化工等基础工业都是典型的()产业。
某工程项目建设工期为五年,为了保证施工顺利进行,开工前的到位资金原则上不得少于工程合同价的()。
信息科技现场检查主要分为()。
下列各项指标中,其公式的分子、分母均使用本年数据的是()。
影响迁移的主要因素有()
拿破仑晚年说过:“我真正的光荣并非打了四十次胜仗,滑铁卢之战抹去了关于这一切的记忆。但有一样东西是不会被人们忘却的。”这不会被人们忘却并让他引以为豪的是()。
Itwasnotuntiltheaccidenthappened______.
最新回复
(
0
)