首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是IAnel,还有一个名称为Labell的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图l所示);若用鼠标左键单
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是IAnel,还有一个名称为Labell的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图l所示);若用鼠标左键单
admin
2020-04-08
59
问题
在考生文件夹下有一个工程文件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("请
下面关于文件叙述中错误的是( )。
在窗体上画一个名称为CD1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:PrivateSubCommand1_Click()CD1.FileName=""CD1.Filter="所有文件|*.*|(*.
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是()。
窗体上有一个名称为Framel的框架(如图),若要把榧架上显示的“Framel”改为汉字“框架”,下面正确的语句是()。
(1)考生文件夹中有工程文件sjt3.vbp。窗体上有一个名称为Label1、标题为“标签控件”的标签;有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件,则在标签Label2中显示所单击控件的标题内容(标题内容前添加“
支持子程序调用的数据结构是( )。
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框PrivateSubCommandl一Click()Text1.Text=“程序设计”Text1.SetFocusEndSubPriv
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima(4,4) Fori=1To4 Forj=1To4
随机试题
1968年,沃尔多出面组织了公共行政学青年学者会议,共同讲座学科的未来发展方向,这次会议导致了()
A.按年龄别体重算,体重超过同年龄、同性别儿童体重均值的10%B.按年龄别体重算,体重超过同年龄、同性别儿童体重均值的20%C.按年龄别体重算,体重超过同年龄、同性别儿童体重均值的30%D.按年龄别体重算,体重超过同年龄、同性别儿童体重均值的40%
半夏和陈皮合用可以增强燥湿化痰的作用,这种配伍关系是()
在两个相同的长方形塑料盒子的一端用潮湿的土壤分别搭起一座相同坡度的“小山”,从盒子的另一端倒入等量的水,形成“湖泊”;不同的是在其中一个盒子内,将一块微湿的海绵压入“小山”底端的土壤里(见下图)。分别用两个喷水壶,往“小山”上洒等量的水,模拟降水。观察、比
2012年8月15日,香港保钓船抵达钓鱼岛,船员登岛后被日方拘押,但这也改变不了钓鱼岛属于中国领土的事实。中国有关钓鱼岛的最早文献出自()。
身高不等的5人站成一排照相,要求身高最高的人排在中间,按身高向两侧递减,共有多少种排法?()
通过改变主体动作以适应客观变化,是()。
有以下程序#includevoidf(int*p,int*q);main(){intm=1,n=2,*r==&m;f(r,&n);printf("%d,%d",m,n);}
Theyaregoingtohavetheserviceman______anelectricfanintheofficetomorrow.
Theelectroniccomputerischieflycharacterizedbyitsaccurateandrapidcomputation.
最新回复
(
0
)