首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时。当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时。当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
admin
2020-04-08
87
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
PrintRight(”VBProgramming”,2)语句的输出结果是()。
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12一kNe
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\
下列打开“代码窗口”的操作中错误的是()。
下列属性中,决定单选按钮是否被选中的是()。
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
数据字典(DD)所定义的对象都包含于
已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是()。
随机试题
环境影响评价工程师对其主持完成的环境影响评价工作的()承担责任。
有价证券按照上市与否可分为上市证券和非上市证券,非上市证券就是指不符合证券交易所上市条件而不能上市的证券。()
常用的球类比赛的编排有()。
下列关于政府职能转变的说法,正确的有()。
下列关于政府价格管制的说法,不正确的是()。
求下列微分方程的通解或特解:-4y=4x2,y(0)=-1/2,y’(0)=2;
关于分布式非结构化P2P网络的描述中,错误的是()。
在下列字符中,其ASCII码值最小的一个是()。
"InterestinlearningChineseamongAmericanyouthandtheirparentshasgrown【S1】______inthepastfiveyears,"saidVivienSte
Whatdoesthepassagemainlydiscuss?Accordingtothefirstparagraph,allofthefollowingstatementscanbeacceptedEXCEFT
最新回复
(
0
)