首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时。当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时。当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
admin
2020-04-08
95
问题
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时。当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Dim stepy As Integer ′纵向移动增量 Dim stepx As Integer ′横向移动增量 Const LEFT BUTTON=1 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single) Dim x0 As Integer,y0 As Integer, a As Single t radius As_Integer radius=Shapel.Width/2 ′圆的半径 I f Button=LEFT BUTTON Then ′单击鼠标左键移动 x0=Shapel.Left+radius′圆心的x坐标 y0=Shapel.Top+radius′圆心的v坐标 If X=x0 Then′垂直移动 stepy=Sgn(y—y0)′50 stepx=
0
E1se′倾斜移动 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
Timerl.Enabled
=True′单击鼠标左键则触发Timer事件 E1Se
Timerl.Enabled
=False′单击鼠 标右键则停止Timer事件 End If End Sub Private Sub Timerl_Timer() Shapel.Move Shapel.Left+stepx, Shapel.Top+
stepy
′移动shapel End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】语句比较复杂,要耐心地读懂程序,然后再做就很简单了。
解析
通过鼠标左键单击位置的坐标及圆心的坐标确定一条直线,并沿着这条直线移动,通过计算这条直线的斜率,得知水平位移和竖直位移,再通过形状控件的Move方法、Left和Top属性实现形状控件位置的移动。
转载请注明原文地址:https://kaotiyun.com/show/RNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click() Dima&,s&,k& s=1 a=2 Fork=2To10
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\
下列打开“代码窗口”的操作中错误的是()。
通用对话框Filter属性的作用是
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为Listl的列表框和一个名称为Textl的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输
以下能够设置控件焦点的方法是( )。
下列关于线性链表的描述中,正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
以下关于VB对象属性的叙述中,错误的是
随机试题
甲研究所按生产部门职工工资分配间接费用,生产A产品的职工工资为100000元,生产B产品的职工工资为300000元,间接费用总额为100000元。要求:计算出A、B产品应分配的间接费用并作出会计分录。
Finallyhegottimeforaglance()thisreport.
在教师指导下学生独立运用一定的仪器设备,按照一定的条件作用于一定的对象,使学生亲眼看到所学对象的某些变化过程的方法是()。A.实验法B.演示法C.实习作业法D.参观法
A.广泛小血管炎伴血栓形成B.血管内膜纤维化C.急性血管炎D.急性间质炎慢性排斥反应有
遗精、滑精和早泄等与气的哪项功能减退有关
1999年,发展中国家M国家电产品生产企业甲公司开始向国外拓展市场,在邻国发展中国家E国建立生产厂。2004年,甲公司的家电产品生产开始在发达国家布局。甲公司国际化经营的战略途径是()。
负责统一印制《从业资格证书》和《执业资格证书》的部门是()。
我国现行体育与健康课程的指导思想是()。
在柯尔伯格的有关儿童道德判断发展阶段的研究中,契约、个人权利和民主承认的法律道德阶段属于()。
为了显示弹出式菜单,要使用
最新回复
(
0
)