在考生文件夹下有一个工程文件sjt5.vbp。程序功能为:在文本框Text1中输入一个正整数N后,单击“计算”按钮,则计算11+22+33+…+NN,并将计算结果显示在Text2中。程序中的函数f可以计算mm的值。 在给出的窗体文件中已经有了全部控

admin2019-05-14  37

问题 在考生文件夹下有一个工程文件sjt5.vbp。程序功能为:在文本框Text1中输入一个正整数N后,单击“计算”按钮,则计算11+22+33+…+NN,并将计算结果显示在Text2中。程序中的函数f可以计算mm的值。
    在给出的窗体文件中已经有了全部控件,但程序不完整。要求:去掉程序中的注释符,把程序中的?改为正确的内容,并编写相应的程序,实现程序的功能,并且必须在运行时计算N=8时的结果。
    注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,必须计算N=8时的结果,否则无成绩。

选项

答案审题分析 函数f利用一个For循环来计算m的m次幂,需要先设置一个累乘积变量初值为1,然后循环m次,在循环中每次在累乘积上乘以m。循环结束时将累乘积作为函数返回值。 在“计算”按钮的单击事件中,要求一个数列的累加和,需要先设置累加和变量初值为0,然后使用For循环循环n次,在每次循环中为累加和变量累加f(j),循环结束后累加和变量的值即为所求。 操作步骤 步骤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:按要求将文件保存至考生文件夹中。 考点链接 For。循环结构、Sub过程和函数过程。

解析
转载请注明原文地址:https://kaotiyun.com/show/QTUp777K
0

相关试题推荐
最新回复(0)