简单应用编程未来题

《简单应用编程未来题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、2（2）在考生文件夹下有一个工程文件sjt4.vbp，运行情况如图所示。程序的功能是计算下列表达式的值：z=(x+2)2+(x+3)3+(x+4)4+…………+(x+n)n其中的N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为"计算"、名称为Command1的命令按钮，则计算表达式的值z，并将计算结果显示在名称为Label1的标签中。注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符，而应使用函数xn进行幂运算。程序至少运行一次，按照下图输入数据，使x=10，N=5，单击"计算"按钮

2、，计算z的值，并将结果显示在标签Label1中，否则没有成绩。最后，程序按原文件名存盘。【考点分析】本题考点有：标签的Caption属性，Function()过程，Val()函数，Call语句，Sub()函数，文件操作(Open、Close、Output)，App.Path相对路径以及For循环语句。【解题思路】通过For循环语句实现xn()的乘幂运算；Click事件过程中通过Val()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的运算结果；运用Call语句调用SaveResult函

3、数对于结果进行保存，涉及文件的Open、Close和Output操作，最后将结果保存在文件夹下的out4.dat文件中。PrivateFunctionxn(aAsSingle,mAsInteger)DimiAsIntegertmp＝1Fori＝1Tom'　tmp＝?Next'xn＝?EndFunctionPrivateSubCommand1Click()DimnAsIntegerDimiAsIntegerDimtAsSingleDims,xAsSinglen＝Val(Text1.Text)x＝Val(Text2.Text)z＝0

4、Fori＝2Ton　　　　t＝x＋i'　z＝z＋？Next'Label1.Caption＝?CallSaveResultEndSubPrivateSubSaveResult()OpenApp.Path&"out4.dat"ForOutputAs#1Print#1,Label1.CaptionClose#1EndSub参考答案：①a^I②tmp③xn(t,i)④z22（1）程序的功能是计算如下表达式的值：z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的N和x值通过键盘分别输入到两个文本框Text1、Text2

5、中。单击名称为Command1、标题为"计算"的命令按钮，则计算表达式的值，并将计算结果在名称为Label1的标签中显示。要求：程序调试通过后，必须按照如图所示输入N=5，x=12，然后计算z的值，并将计算结果显示在标签Label1中，否则没有成绩。【考点分析】本题考点有：标签的Caption属性，Function()过程，Val()函数，Call语句，Sub()函数，文件操作(Open、Close、Output)，App.Path相对路径以及For循环语句。【解题思路】通过循环语句实现xn()的乘幂运算；在命令按钮的单击事件过

6、程中通过Val()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的结果运算；最后运用Call语句调用SaveResult函数语句，并将结果进行保存在文件夹下的out4.dat文件中。PrivateFunctionxn(mAsInteger)AsLongDimiAsIntegerDimtmpAsLong'tmp＝?Fori＝1Tom　　　　'tmp＝？Next'?＝tmpEndFunctionPrivateSubCommand1Click()DimnAsIntegerDimiAsInte

7、gerDimtAsIntegerDimzAsLong,xAsSinglen＝Val(Text1.Text)x＝Val(Text2.Text)z＝0Fori＝2Ton　　　　t＝x－i　　　　'z＝z＋?NextLabel1.Caption＝zCallSaveResultEndSubPrivateSubSaveResult()OpenApp.Path&"out3.dat"ForOutputAs#1Print#1,Label1.CaptionClose#1EndSub参考答案：①1②tmp*I③xn④xn(t)11（2）程序的功能

8、是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Text1、Text2的两个文本框，用于接收输入的M和N(要求M