首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图1所示);若用鼠标左键单
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图1所示);若用鼠标左键单
admin
2019-06-11
25
问题
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图1所示);若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置(如图2所示);若鼠标左键或右键单击其他位置,则在标签上输出“鼠标位置不对”。
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差),是则返回True,否则返回False。符号常量x0、y0是圆心距窗体左上角的距离;符号常量radius是圆的半径。
注意:不能修改程序中的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Const y0&=1110,x0&=1100,radius&=750 Private Function oncircle(X As Single,Y As Single)As Boolean precision=55000 Tf Abs((X-x0)*(X-x0)+(y0-Y)*(y0-Y)-radius*radius)<precision Then’判断鼠标单击的位置是否在圆边上 oncircle=True Else oncircle=False End If End Function Private Sub Form_MouseDown(Button As Tnteget,Shift as Integer,X As Single,Y As Single) Const LEFT_BUTTON=1 If oncircle(X,Y)Then’调用oncircle函数判断鼠标单击的位置 Line1.X1=x0 Line1.Y1=y0 If Button=LEFT_BUTTON Then Line1.X2=X Line1.Y2=
Y
’直线另一端的y坐标为鼠标当前的y值 Else Line1.X2=Line1.
X1
’直线回到初始位置x不变 Line1.Y2=y0-
radius&
’y2为原先坐标减去半径的值 End Tf Label1.Caption="" Else’否则Label1显示位置不对
Label1
="鼠标位置不对" End If End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/TzN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
能够将组合框Combol中最后一个数据项删除的语句为()。
(1)在名称为Form1的窗体上添加一个名称为Label1、标题为“滚动条控件”的标签,一个名称为HScroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最大值为100,最小值为1,滚动条的高度为300,宽度为3000,滚动块的初始位置为
以下关于键盘事件的叙述中,错误的是()。
(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮数组,含三个命令按钮,它们的标题依次为“是”、“否”、“取消”,Index属性分别为0、1、2,每个按钮的高、宽均为300、800。窗体的标题为“按钮窗口”。运行后的窗体如图所示。
以下叙述中正确的是()。
(1)在名称为Form1的窗体上添加一个名称为Shapel的形状控件,通过设置参数使其形状为圆形;添加一个名称为Label1的标签,标题为“形状”,标签的大小能够根据标签内容的字数、大小而定;添加一个名称为Text1的文本框,文本框最多能够显示5个字符,文
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarr(10)Fori=6To10arr(i)=i-5NextiLabel1
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
下列选项中不属于面向对象程序设计特征的是
下列运算符中,优先级别最高的是
随机试题
Whatisthegreatest【B1】______ofbeingalive?Isitchocolate,icecream,tropicalvacations,hugsfromchildren,aperfectnigh
以下白细胞介素和细胞因子中可通过多种途径、产生多种效应来介导炎症反应的是
初级排便反射中枢位于()
按照我国招标投标法的规定,自发出招标文件至投标截止时间不少于()天。
下列资产负债表的部分项目,属于所有者权益的是( )
市场规则是由权力机关制定的(或在长期市场交易中形成的)对市场主体及其经济行为的规范,是市场正常运行的重要保证。具体来说,市场规则主要有()。
向上级机关汇报工作、反映情况,回答上级机关询问时使用()。
一、注意事项1.申论考试是对应考者阅读理解能力、综合分析能力、提出问题和解决问题能力、文字表达能力的测试。2.参考时限:阅读资料40分钟,作答110分钟。3.仔细阅读给定资料,按照后面提出的“作答要求”依次作答。二、给定资料
ComputerMouseThebasiccomputermouseis【C1】______amazinglycleverinventionwitharelativelysimpledesignthatallowsu
Psychologiststakecontrastiveviewsofhowexternalrewards,from【C1】______praisetocoldcash,affectmotivationandcreativit
最新回复
(
0
)