首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
admin
2019-06-20
53
问题
在考生文件夹下有一个工程文件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 AsSingle,radius Asjnteger radius=Shape1.Width/2 ’圆的半径 I f Button=LEFT BUTTON Then ’单击鼠标左键移动 x0=Shape1.Left+radius’圆心的x坐标 y0=Shapel.Top+radius’圆心的y坐标 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 Timer1.Enabled=’单击鼠标左键则触发Timer事件 Else Timer1.Enabled=False’单击鼠标右键则停止Timer事件 End If End Sub Private Sub Timerl Timer() Shape1.Move Shape1.Left+s tepx,Shape1.Top+stepy’移动shape1. End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过鼠标左键单击位置的坐标及圆心的坐标确定一条直线,并沿着这条直线移动,通过计算这条直线的斜率,得知水平位移和竖直位移,再通过形状控件的Move方法、Left和Top属性实现形状控件位置的移动。
sgn(x)函数返回x的正负号,如果x为正数,返同1;如果为负数,返回-1;如果为0,则返回0。
转载请注明原文地址:https://kaotiyun.com/show/9vUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面哪个属性不是框架控件的属性()。
设计窗体时双击窗体的任何位置,将打开()。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4X=4Forj=1To3X=3Fork=1To2X=X+6NextkNextj,iPrintxEnd
当窗体最小化时缩小为一个图标,设置这个图标的属性是()。
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:1)单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个按升序排列的整数读入到数组a中,同时显示在Text1文本框中;2)单击“查找”按钮,则提示用户输入查找的数,并利用二分法
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
在关系模型中,每一个二维表称为一个
循环队列的存储空间为Q(1:100),初始状态为front=rear=100。经过一系列正常的入队与退队操作后,front=rear=99,则循环队列中的元素个数为()。
在线性表的链式存储结构中,其存储空间一般是不连续的,并且()。
下面的数写成普通十进制数是()。2.65358979335278D-6
随机试题
妊娠20周时对妊娠高血压综合征的发生进行预测性诊断,最有预测价值的方法是:
慢性肾盂肾炎治疗原则哪项是错误的
A.指胎头双顶径接近或达到坐骨棘水平,胎头进行一系列适应性下降B.指胎头双项径进入骨盆入口平面,胎头颅骨最低点接近或达到坐骨棘水平C.指胎头娩出后,胎头枕部向左旋转45°,使胎头与胎肩成正常关系D.指胎肩右肩向母体方向旋转45°,使胎肩径与出口前后径
一例无主女尸,剖检发现死者两肾体积缩小,重量减轻各为100g,质地硬,皮质变薄,表面呈颗粒状,肾切片观察,均有细动脉透明变性,肾小球纤维化等改变。此患者生前可能患的疾病是
根据《药品不良反应报告和监测管理办法》,属于药品严重不良反应情形的有
同时需输多品种的血液时,应首先输入()。
简述创造性及其特征。
十四大报告指出:“在所有制结构上,以公有制包括全民所有制和集中所有制为主体,个体经济、私营经济、外资经济为补充,多种经济成分长期共同发展。”十五大报告指出:“非公制经济是社会主义市场经济的重要组成部分。”十六大报告指出:“必须毫不动摇地鼓励、支持和引导非公
“太极图”是中华文化的瑰宝,它是由黑白两个鱼形纹组成的圆形图案,俗称“阴阳图”,该图看似简单,却包含着丰富的哲学意蕴。其内涵主要有()
Don’tWasteOurOceans[A]Fortoolong,marinelifehasbeenlargelyopenforthetakingbyanyonepossessingthemeanstoexplo
最新回复
(
0
)