首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注释符,把
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注释符,把
admin
2017-03-27
38
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件下的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: stepx=0 stepy=a*stepx Timer1.Enabled=True Timer1.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=Sgn(y-y0)*50,计算出横向移动增量stepx=stepy/a,以防止实心圆移动速度不均。启动计时器Timer1(设置其Enabled属性值为True),利用其Timer事件过程控制实心圆移动。
根据计算出的实心网横向移动增量和纵向移动增量,其移动的语句为:Shape1.MoveShape1.Left+stepx,Shape1.Top+stepy。
转载请注明原文地址:https://kaotiyun.com/show/dmGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsIntegerDimsumAsIntegerDimsu
如果在C盘当前文件夹下已经存在名称为Sdat.dat的顺序文件,那么执行语句Open"c:/Sdat.dat"ForAppendAs#1之后,将()。
当一个工程含有多个窗体时,其中的启动窗体是______。
相对于数据库系统,文件系统的主要缺陷有数据关联差、数据不一致性和______。
下列程序运行后,在窗体上打印的结果是【】。PrivateSubtest(a,b,c)a=a+1:b=b+2:C=C+3EndSubPrivateSubCommand1
属性窗口分为4个部分,这4个部分分别是______。
在程序运行时,可以通过______方法来移动滚动条的位置。
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中______的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: PrivateSubCommand1_Click() n=Val(Text1.Text) Fori=2Ton Forj
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(1To10)Dimp(1To3)k=5Fori=1To10a(i)=iNextiFori=1To3p
随机试题
木材在保管阶段,对于过夏或保管期限较长的,除了合理地堆垛之外,需要喷洒防腐药剂。
A.急性化脓性中耳炎B.迷路瘘管C.突发性耳聋D.梅尼埃病E.耳硬化快速摇头或耳内操作时可诱发眩晕
病人上腹部被汽车撞伤,伤后4小时来医院。面色苍白,四肢厥冷。脉搏140次/分,血压8/5.33kPa(60/40mmHg),全腹压痛。肌紧张及反跳痛。首先应考虑
患儿,男,8岁。2周前患上呼吸道感染,近2天来颜面水肿,尿少,尿为浓茶色。诊断为急性肾小球肾炎。患儿感染的致病菌最可能是
女,38岁,接触性出血1个月余,白带有恶臭:妇科检查,宫颈Ⅱ度糜烂,前唇有5cm’的质地脆赘生物,易出血,子宫正常大,三合诊(一)。
【2007年第4题】题26~30:某机械(平稳负载长期工作制)相关参数为:负载转矩TL=1477N.m,启动过程中的最大静阻转矩TLmax=562N.m,要求电动机转速n=2900~3000r/min,传动机械折算到电动机轴上的总飞轮力矩Dmec2=196
下列教育家中()提出了“泛智主义”教育思想,主张“把一切事物教给一切人”。
中国主张,建立公正合理的国际政治经济新秩序的基础是()。
2017年6月1日,__________________开始施行。
Itisallverywelltoblametrafficjams,thecostofpetrolandthequickpaceofmodernlife,butmannersontheroadsarebe
最新回复
(
0
)