在考生文件夹下有一个工程文件vbsj4.vbp,运行情况如图3-41所示。程序的功能是计算如下:表达式的值:Z=(X+2)^2+(X+3)^3+(x+4)^4+…+(X+N)^N。其中,N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称

admin2016-01-31  39

问题 在考生文件夹下有一个工程文件vbsj4.vbp,运行情况如图3-41所示。程序的功能是计算如下:表达式的值:Z=(X+2)^2+(X+3)^3+(x+4)^4+…+(X+N)^N。其中,N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称为cmdCal、标题为“计算”的命令按钮,则计算表达式的值Z,并将计算结果显示在名称为lblResult的标签中。在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的“?”改为正确的内容。
   
    注意:考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符,而应使用函数xn进行幂运算。程序至少运行一次,按照下图输入数据,使N=5,X=10,单击“计算”按钮,计算Z的值,并将结果显示在标签lblResult中,否则没有成绩。最后,程序按原文件名存盘。
    程序源码:
PriVate  Function xn(a As Single, m As Integer)
    Dim i As Integer
    tmp=1
    For i=1 To m
    ′ tnap=?
    Next
    ′xn=?
End Function
Private  Sub cmdCal_Click()
    Dim n As Integer, i As Integer
    Dim t As Single,s, X As Single
    n=Val(txtN.Text)
    x=Val(txtX.Text)
    z=0
    For i=2 To n
    t=x+i
    ′ z=z+?
    Next
    ′lblResult.Caption=?
    Call SaveResult
End Sub
PriVate  Sub  SaveResult()
    Open App.Path & "\out4.dat" For
    Output As #1
    Print #1, lblResult.Caption
    Close #1
End Suh

选项

答案审题分析 本题源程序中,自定义函数xn的功能是进行a^m幂运算,它通过For循环连续m次将a乘以累积变量tmp(初值为1)来实现。故自定义函数xn中第一个?处应改为:tmp*a,作为函数返回值第二个?处应改为:tmp。 在“计算”按钮的单击事件过程中,根据程序所要计算:表达式的特点,源程序利用一个For循环依次计算表达式中各项的值((x+i)^i),并将其累加入变量z。计算表达式中各项的值通过调用自定义函数xn(t,i)来实现的,其中t=x+i。故cmdCal_Click事件过程中第一个?处应改为:xn(t,i)。计算结果显示在标签中,故第二个?处应改为:z。 操作步骤 步骤1:打开考生文件夹中的本题工程文件vbsj4.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: tmp=tmp*a xn=tmp z=z+xn(t,i) lblResult.Caption=z 步骤2:按键运行程序,在第1个文本框中输入5,第2个文本框中输入10,然后单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。 考点链接 Sub过程和函数过程、参数传递。

解析
转载请注明原文地址:https://jikaoti.com/ti/XwJ0FFFM
0

最新回复(0)