(1)在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签,和其他一些控件,如图3-172(a)所示。 在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置,

admin2018-10-29  20

问题 (1)在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签,和其他一些控件,如图3-172(a)所示。
    在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置,如图3-172(b)所示;若用鼠标右键单击圆的边线,则指针恢复到起始位置,如图3-172(a)所示;若鼠标左键或右键单击其他位置,则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容。

    程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差),是则返回True,否则返回False。符号常量x0、y0是圆心距窗体左上角的距离;符号常量radius是圆的半径。
    注意:不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
    (2)在考生目录下有一个工程文件sjt4.vbp,窗体如图3-173所示。

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

选项

答案第1小题 【操作步骤】 步骤1:打开本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Line1.Y2=Y Line1.X2=Line1.X1 Line1.Y2=y0-750 Label1.Caption="鼠标位置不对" 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤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:按<F5>键运行程序,单击“输入数据”按钮,通过输入框输入一个8-12之间的整数,然后单击“计算”按钮计算结果,最后单击“存盘”按钮保存结果。 步骤4:按要求将文件保存至考生文件夹中。

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

最新回复(0)