首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件。但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件。但程序不完整。 要求:请去掉程序
admin
2018-06-29
33
问题
在考生文件夹下有一个工程文件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 r y0 As Integer, a As Single,radius As Integer radius=Shape1.Width/2 ’圆的半径 If Button=LEFT BUTTON Then ’单击鼠标左键移动 x0=Shape1.Left+radius’圆心的x坐标 y0=Shape1.Top+radius’圆心的y坐标 If x=x0 Then’垂直移动 Stepy=Sgn(y—y0)*50 Stepx=0 Else’倾斜移动 a=(y—y 0)/(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 EndIf EndIf Timer1.Enabled=True’单击鼠标左键则触发Timer事件 Else Timer1.Enabled=False’单击鼠标右键则停止Timer事件 End If End Sub Private Sub Timerl_Timer() Shape1.Move Shape1.Left+stepx,Shape1.Top+stepy’移动shape1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过鼠标左键单击位置的坐标及圆心的坐标确定一条直线,并沿着这条直线移动,通过计算这条直线的斜率,得知水平位移和竖直位移,再通过形状控件的Move方法、Left和Top属性实现形状控件位置的移动。
sgn(x)函数返回x的正负号,如果x为正数,返回1;如果为负数,返回一1;如果为0,则返回0。
转载请注明原文地址:https://kaotiyun.com/show/rdGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp,含有两个窗体,名称分别为。ForTnl、Form2。其中,Forml上有两个控件(图像框和计时器)和一个菜单项“操作”,含有三个子菜单(如图l所示)。Form2上有一个,名称为Commandl、标题为“
下面关于标准模块的叙述中,错误的是()。
数据库应用系统中的核心问题是()。
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
以下关系表达式中,其值为True的是
设有以下定义语句:PrivateTypepointxAsIntegeryAsIntegerEndTVpeDimaAspoint下面语句中正确的是
VB中,若没有显式声明变量的数据类型,则默认的类型是
窗体上有一个名称为VScrol11的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScrol11.Value的值等于
某二叉树的中序序列为BDCA,后序序列为DCBA,则前序序列为
某二叉树的中序序列为DCBAEFG,后序序列为DCBGFEA,则该二叉树的深度(根结点在第1层)为
随机试题
由于银行存款利率或者其他的投资收益率变化,使得某项对外投资的收益相对减少的风险指的是()
已在市场上流通的旧债券,从购入日起到最终偿还期限止这一段时间的年利率是()
细菌毒素导致的心肌炎是
在城市用地台地规则原则中,台地的长边宜采用与等高线()的方式布置。
突发公共卫生事件的特性包括()。
幼儿的科学教育是科学启蒙教育,重在__。
坚持走中国特色农业现代化道路,把()作为首要目标,加快转变农业发展方式,提高农业综合生产能力、抗风险能力和市场竞争能力。
下列行为中,属于单方法律行为的是()。
设n阶矩阵A=(α1,α2,…,αn)的前n-1个列向量线性相关,后n-1个列向量线性无关,且α1+2α2+…+(n-1)αn-1=0,b=α1+α2+…+αn.(1)证明:方程组AX=b有无穷多个解;(2)求方程组AX=b的通解.
WheredidthespeakermeetSusan?
最新回复
(
0
)