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

admin2019-06-11  46

问题 在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Labell的标签,和其他一些控件,如图3-118(a)所示。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置,如图3-118(b)所示;若用鼠标右键单击圆的边线,则指针恢复到起始位置,如图3-118(a)所示;若鼠标左键或右键单击其他位置,则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差),是则返回True,否则返回False。符号常量x0、y0是圆心距窗体左上角的距离;符号常量radius是圆的半径。
   
    注意:不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

选项

答案审题分析 本题源程序在Form MouseDown事件过程中,先通过调用函数oncircle(X,Y)以判断鼠标单击的位置是否在圆的边线上,若在边线上,则接着判断当前按下的是否为鼠标左键,若为左键,则将直线Line1的终点位置设置为当前鼠标单击的位置,故第一个?处应改为:Y;若当前按下的不是左键,则直线Line1的终点位置设置为其原始位置,即Line1.X2=Line1.X1、Line1.Y2=y0-750。若鼠标单击的位置不在圆的边线上,则在标签上显示相关信息,故第4个?处应改为:Label1.Caption。 操作步骤 步骤1:打开本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: Line1.Y2=Y Line1.x2=Line1.X1 Line1.Y2=y0—750 Label1.Caption="鼠标位置不对" 步骤2:按要求将文件保存至考生文件夹中。 考点链接 图形控件、键盘和鼠标事件。

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

随机试题
最新回复(0)