首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注
admin
2017-09-22
33
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件下的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: stepx=U stepy=a*stepx Timerl.Enabled=True Timerl.Enabled=False Shape1.Move Shape1.Left+stepx, Shape1.Top+stepy 步骤2:按要求将文件保存至考生文件夹中。
解析
本题在窗体的鼠标按下事件过程中,若按下的是鼠标左键,则通过计算得出圆心的坐标。若圆心与当前鼠标按下点位于同一竖线上时(即x=x0),则设定实心圆纵向移动增量为stepy=Sgn(y-y0)*50,横向移动增量则为0(即stepx=0);否则设定实心圆横向移动增量为stepx=Sgn(x-x0)*50,并根据斜率a计算出纵向移动增量:stepy=a*stepx,若计算出的纵向移动增量stepy绝对值大于横向移动增量绝对值stepx,则重新设定实心圆纵向移动增量为stepy=Sen(y-y0)*50,计算出横向移动增量stepx=stepy/a,以防止实心圆移动速度不均。启动计时器Timerl(设置其Enabled属性值为True),利用其Timer事件过程控制实心圆移动。
根据计算出的实心圆横向移动增量和纵向移动增量,其移动的语句为:Shape1.Move Shape1.Left+stepx,Shape 1.Top+stepy。
转载请注明原文地址:https://kaotiyun.com/show/YjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在事件过程中,Private表示______。
决定一个窗体有无控制菜单的属性是______。
下列可作为VisualBasic中所允许的形式的数是______。
刚建立工程时,使窗体上的所有控件具有区别于默认值的相同的字体格式,应对______的______属性进行设置。
有下列两个过程:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSub
软件工程的出现是由于
使用目录列表框的______属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。
软件开发的结构化生命周期方法将软件生命周期划分成______。
以下关系表达式中,其值为False的是______。
希尔排序法属于哪一种类型的排序法______。
随机试题
宜睡前服的药是
对于类似交通运输经营权的资源分配,政府应当如何分配?本案市政府的做法是否妥当?祥龙汽车客运公司能否具有原告资格?为什么?
甲和乙为丙的连带债务人,根据债的原理,下列表述正确的是:()
下列情形符合注册建造师申请条件的是()。
关于账簿、凭证管理的说法,正确的是()。
我国()被联合国教科文组织定为非物质文化遗产。
依次填入下列横线处的词语最恰当的一组是()。(1)“下来吧,孩子,”他带着____________口气说,“晚饭做好了”?(2)因为有这样___________的冬天,干啥还希望点别的呢?(3)我想,他要说了,我即刻便
下列选项中属于特殊心智技能的是()。
为防止攻击者通过Windows XP系统中正在运行的Telnet服务登录到用户的计算机,可以对Windows XP中Telnet服务进行如下设置:(56)。
•Readthearticlebelowaboutresponsibility.•Foreachquestion13-18,markoneletter(A,B,CorD)onyourAnswerSheet,f
最新回复
(
0
)