首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是IAnel,还有一个名称为Labell的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图l所示);若用鼠标左键单
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是IAnel,还有一个名称为Labell的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图l所示);若用鼠标左键单
admin
2020-04-08
67
问题
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是IAnel,还有一个名称为Labell的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图l所示);若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置(如图2所示);若鼠标左键或右键单击其他位置,则在标签上输出“鼠标位置不对”。
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差),是则返回True,否则返回False。符号常量x0、y0是圆心距窗体左上角的距离;符号常量radius是圆的半径。
注意:不能修改程序中的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Const y0& =1110,x0& =1100, radius&=750 Private Function oncircle(X As Sin. gle,Y As Single)As Boolean precision=55000 If Abs((X—x0)*(X—x0)+(y0 一Y)*(y0一Y)一radius*radius)<pre— cision Then′判断鼠标单击的位置是否在圃边上 oncircle=True Else oncircle=False End If End Function Private Sub Form MouseDown(Button As Integer, Shift as Integer, X As Single,Y As Single) Const LEFT_BUTTON=1 If oncircle(X,Y)Then′调用oncir- cle函数判断鼠标单击的位置 Linel.Xl=x0 Linel.Y1=y0 If Button=LEFT_BUTTON Then Linel.X2=X Linel.Y2=
Y
′直线另一端的Y坐标为鼠标当前的y值 Else Linel.X2=Linel.
X1
′直线回到初始位置X不变 Linel.Y2=y0一
radius&
′y2为原先坐标减去半径的值 End If Labell.Caption="" Else′否则Labell显示位置不对
Labell
="鼠标位王不对” End If End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Const用来设置符号常量,Function oncircle()函数则用来判断鼠标单击的位置是否在圆的边界上,通过调用Function oncircle()函数实现对鼠标单击位置的判断,如果在其他位置,则在标签上显示“鼠标位置不对”,线条的X1、Yl、X2和Y2属性用来确定指针位置和大小,Button的值用来判断是右键单击还是左键单击,确定指针指向。
转载请注明原文地址:https://kaotiyun.com/show/RATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是()。
下列可以激活属性窗口的操作是()。
窗体上有一个名称为Framel的框架(如图),若要把榧架上显示的“Framel”改为汉字“框架”,下面正确的语句是()。
(1)考生文件夹下的工程文件sjt3.vbp中有2个标题分别是“产生范文”和“结束”的命令按钮:2个名称分别为Text1和Text2,初始值为空的文本框。请再画1个名称为Label3、标题为“正确率”的标签,画1个名称为Text3、初始内容为空的文本框。效
随机试题
若向量组α1,α2,α3,α4线性相关,且向量α4不可由向量组α1,α2,α3线性表示,则下列结论正确的是().
继发性咬合创伤的形成主要是
单人心肺复苏时,胸外心脏按压与人工呼吸的恰当操作是
谷某和丁某发生口角,丁某当众辱骂谷某,谷某自觉理亏默不作声,却对丁某怀恨在心,伺机报复。一天谷某捏造丁某的妻子与人幽会的谣言,并大肆宣传。丁某忍无可忍挥拳向谷某打来,谷某遂掏出随身携带的三角刮刀,趁丁某不备猛刺其腹部,丁某被穿透腹腔,当即死亡。对谷某的行为
货物常用的堆码方式有()。
小高是社会工作专业毕业的大学生,进入某一福利机构工作不久,他所掌握的社会工作知识匮乏,在其工作所要求的知识、态度和技能等方面表现不称职,而老李是这一社会福利机构的资深社会工作师,老李对小高进行督导,主要目的是为了解决小高的知识匮乏问题,提高他的专业知识和技
VPN是虚拟专用网的简称,主要类型可分为网络层的IPSecVPN和应用层的(17)VPN两种,其中IPSecVPN主要是为了解决(18)的互联。
WhoisMorrisStevenson?
Youwillhavetotalkaboutthetopicforoneortwominutes.Youhaveoneminutetothinkaboutwhatyouaregoingtosay.Yo
PASSAGETWOWhyareagrowingnumberofpeopleusingcreditcardsnowadays?
最新回复
(
0
)