首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图1所示);若用鼠标左键单
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图1所示);若用鼠标左键单
admin
2019-06-11
38
问题
在考生文件夹下有一个工程文件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://kaotiyun.com/show/otUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为()。
运行如下程序:PrivateSubCommand1_Click()Dima(5,5)AsIntegerFori=1To5Forj=1To4a(i,j)=i*2+jIfa(i,j)
已知在菜单编辑器中设计了窗体的快捷菜单,其主菜单为a1,且取消其“可见”属性,如图2所示。运行时,以下()事件过程可以使快捷菜单的菜单项响应鼠标右键单击。
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
执行以下程序段a$="VisualBasicProgramming":b$="C++"c$=UCase(Left$(a$,7))&b$&RightS(aS,12)变量c$的值为
以下关于变量作用域的叙述中错误的是
以下数据结构中,属于非线性数据结构的是()。
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是
以下说法中正确的是
随机试题
我国的人民民主专政思想是()
婴儿佝偻病的主要病因是
(2008年)已知顺序数据文件FILE3.DAT有如下数据:50,54,64,5565,70,85,9046,73,60,72阅读FORTRAN程序:DIMENSIONM(12)OPEN(
《建筑地面工程施工质量验收规范》中规定,水泥混凝土垫层的厚度不应小于( )。
改革开放让很多人富起来。有人说,改革开放就是为了让腰包鼓起来,还有人说改革开放不但要富口袋,也要富脑袋。对此,谈谈你的看法。
请从所给的选项中,选择最合适的一个填入问号处,使之呈现一定的规律性:
阅读下列史料并回答问题:“初,吴主为讨虏将军,在吴,娶吴郡徐氏;太子登所生庶贱,吴主令徐氏母养之。徐氏妒,故无宠,及昊主西徙,徐氏留处昊;而临淮步夫人宠冠后庭,吴主欲立为皇后,而群臣议在徐氏,吴主依违者十余年。会步氏卒,群臣奏追赠皇后印绶。徐氏竞
执行下面的程序段后,变量c的值为a=14b=30SelectCaseb\10Case0c=a*10+bCase1To9c=a*100+b
Longbusridesareliketelevisionshows.Theyhaveabeginning,amiddle,andanend--withcommercialsthrownineverythreeor
【B1】【B11】
最新回复
(
0
)