在考生目录下有一个工程文件sjt4.vbp,窗体如图3-119所示。其功能是单击“输入数据”按钮,则可输入一个整数n(要求:8≤n≤12);单击“计算”按钮,则计算1!+2!+3!+…+n!,并将计算结果显示在文本框中;单击“存盘”按钮,则把文本框中的结果

admin2016-01-31  29

问题 在考生目录下有一个工程文件sjt4.vbp,窗体如图3-119所示。其功能是单击“输入数据”按钮,则可输入一个整数n(要求:8≤n≤12);单击“计算”按钮,则计算1!+2!+3!+…+n!,并将计算结果显示在文本框中;单击“存盘”按钮,则把文本框中的结果保存到考生目录下的out4.dat文件中。文件中已经给出了所有控件和程序,但程序:不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,并编写“计算”按钮的Click事件过程。
   
    注意:不得修改已经存在的内容和控件属性,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后把修改后的文件按原文件名存盘。

选项

答案审题分析 本题源程序中,自定义函数f的功能是进行n!阶乘运算,它通过。For循环连续n次将循环变量k的值乘以累积变量s(第一个?处s初值应为1)来实现,作为函数返回值第二个?处应改为:s。 在“计算”按钮的单击事件过程中,根据程序所要计算表达式的特点,源程序利用一个For循环依次计算表达式中各项的值并将其累加入变量s,计算表达式中各项的值通过调用自定义函数f(k)来实现的,最终计算结果显示在文本框中。 操作步骤 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: s=1 f=s 步骤2:双击“计算”按钮,编写该按钮的单击事件过程。 参考代码: Private Sub Command2_Click() Dim s As Long,k As Integer ′考生应编写的程序 s=0 For k=1 To n s=s+f(k) Next Text1=s End Sub 步骤3:按键运行程序,单击“输入数据”按钮,通过输入框输入一个8~12之间的整数,然后单击“计算”按钮计算结果,最后单击“存盘”按钮保存结果。 步骤4:按要求将文件保存至考生文件夹中。 考点链接 For循环结构、Sub过程和函数过程。

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

最新回复(0)