简单应用编程未来题.doc

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，单击计算按钮，计算z的值，并将结果显示在标签Label1中，否则没有成绩。最后，程序按原文件名存盘。 【考点分析】本题考点有：标签的Caption属性， Function()过程，Val()函数，Call语句，Sub()函数，文件操作(Open、Close、Output)，App.Path相对路径以及For循环语句。 【解题思路】通过For循环语句实现xn()的乘幂运算；Click事件过程中通过Val()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的运算结果；运用Call 语句调用SaveResult函数对于结果进行保存，涉及文件的Open、Close和Output操作，最后将结果保存在文件夹下的 out4.dat文件中。 Private Function xn(a As Single, m As Integer) Dim i As Integer tmp ＝ 1 For i ＝ 1 To m 　tmp ＝ ? Next xn ＝ ? End Function Private Sub Command1 Click() Dim n As Integer Dim i As Integer Dim t As Single Dim s, x As Single n ＝ Val(Text1.Text) x ＝ Val(Text2.Text) z ＝ 0 For i ＝ 2 To n 　　　　t ＝ x ＋ i 　z ＝ z ＋？ Next Label1.Caption ＝ ? Call SaveResult End Sub Private Sub SaveResult() Open App.Path \out4.dat For Output As #1 Print #1, Label1.Caption Close #1 End Sub 参考答案：①a ^ I ②tmp ③xn(t, i) ④z 22（1）程序的功能是计算如下表达式的值： z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)! 其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为Command1、标题为计算的命令按钮，则计算表达式的值，并将计算结果在名称为Label1的标签中显示。 要求：程序调试通过后，必须按照如图所示输入N=5，x=12，然后计算z的值，并将计算结果显示在标签Label1中，否则没有成绩。 【考点分析】本题考点有：标签的Caption属性， Function()过程，Val()函数，Call语句，Sub()函数，文件操作(Open、Close、Output)，App.Path相对路径以及For循环语句。 【解题思路】通过循环语句实现xn()的乘幂运算；在命令按钮的单击事件过程中通过Val()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的结果运算；最后运用Call 语句调用SaveResult函数语句，并将结果进行保存在文件夹下的 out4.dat文件中。 Private Function xn(m As Integer) As Long Dim i As Integer Dim tmp As Long tmp ＝ ? For i ＝ 1 To m 　　　　tmp ＝？ Next ? ＝ tmp End Function Private Sub Command1 Click() Dim n As Integer Dim i As Integer Dim t As Integer Dim z As Long, x As Single n ＝ Val(Text1.Text) x ＝ Val(Text2.Text) z ＝ 0 For i ＝ 2 To n 　　　　t ＝ x － i 　　　　z ＝ z ＋ ? Next Label1.Caption ＝ z Call SaveResult End Sub Private Sub SaveResult() Open App.Path