首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
admin
2019-06-24
70
问题
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考答案(画线部分是需考生填入的内容) Dim stepy As Integer ’纵向移动增量 Dim stepx As Integer ’横向移动增量 Const LEFT BUTTON=1 Private Sub Form_MouseDown(Button AsInteger,Shift As Integer,x As Single,y As Single) Dim x0 As Integer,y0 As Integer,a As Single,radius As_Integer radius=Shapel.Width/2 ’圆的半径 If Button=LEFT BUTTON Then ’单击鼠标左键移动 x0=Shapel.Left+radius’圆心的x坐标 y0=Shapel.Top+radius’圆心的y坐标 If x=x0 Then’垂直移动 stepy=Sgn(y—y0)*50 stepx=
0
Else’倾斜移动 a=(y—y0)/(x—x0) ’斜率 stepx=Sgn(x—x0)*50
stepy
=a* stepx ’通过stepx确定stepy的值 If Abs(stepy)>Abs (stepx)Then stepy=Sgn(y—y0)*50 stepx=stepy/a End If End If
Timer1.Enabled
=True’单击鼠标左键则触发Timer事件 Else
Timer1.Enabled
=False’单击鼠标右键则停止Timer事件 End If End Sub Private Sub Timer1_Timer() Shapel.Move Shapel.Left+stepx,Shapel.Top+
stepy
’移动shapel End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过鼠标左键单击位置的坐标及圆心的坐标确定一条直线,并沿着这条直线移动,通过计算这条直线的斜率,得知水平位移和竖直位移,再通过形状控件的Move方法、Left和Top属性实现形状控件位置的移动。
sgn(x)函数返回x的正负号,如果X为正数,返回1;如果为负数,返回一1;如果为0,则返回0。
转载请注明原文地址:https://kaotiyun.com/show/QqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Label1中;单击“找素数”按钮,则在大于Label1的数据范围内找出最小的素数,并将其显示在标签Label2中。在给出的窗
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType当单击命令按钮时,将两个文本
关于MDI窗体下列说法正确的是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框(Imag
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Text1的文本框,其高、宽分别为400、2000。运行后的窗体如图3—112所示。请在属性框中设置适当的属性满足以下要求:①Te
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上添加一个计时器控件,名称为Timer1。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是
以下叙述中错误的是
随机试题
固定桥是利用连接体把固位体与桥体连为一体,固定桥修复是否成功与连接体的制作关系密切关于连接体强度与长、宽、厚的关系描述中错误的是A.连接体的强度与厚度的3次方成正比B.连接体的强度与宽度成正比C.连接体的强度与长度的3次方成正比D.连接体的强度
A、颈浅筋膜B、颈深筋膜浅层C、颈深筋膜中层D、颈脏器筋膜E、颈深筋膜深层包被颌下腺、胸锁乳突肌及斜方肌的是
与原发性肝癌发生无关的肝硬化是
A、昏迷B、脑膜刺激征阴性C、血性脑脊液D、“三偏”征E、失语内囊区出血和血栓的共同表现是
甲电子公司与乙电脑公司签订合同,并约定一切纠纷均提交北京仲裁委解决。随后争议发生,在北京仲裁委的调解下,双方达成和解协议,仲裁庭作出调解书。请问下列说法错误的是:()
关于基金的年度报告,下列选项中表述错误的是()。
非居民企业转让财产所得,以收入全额为企业所得税应纳税所得额。()
互动式教学,就是通过营造多边互动的教学环境,在教学双方平等交流探讨的过程中,达到不同观点碰撞交融;进而激发教学双方的主动性和探索性,从而提高教学效果的一种教学方式。根据上述定义.以下属于互动式教学的是:
有以下函数:intfun(char*s){char*t=s;while(*t++);return(t-s)该函数的功能是______。
ButthetrompcardistheAndesmountainrange.Thereareanumberofexcellentskiresortswithinonehour’sdriveofthecapi
最新回复
(
0
)