首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心网则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心网则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
admin
2019-05-14
19
问题
在考生文件夹下有一个工程文件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,radius As_Integer radius=Shapel.Width/2 ’圆的半径 If Button=LEFT BUTTON Then ’单击鼠标左键移动 x0=Shapel.Left+radius’圆心的x坐标 y0=Shapel.Top+radius’圆心的y坐标 If x=x0 Then’垂直移动 stepy=Sgn(y-y0)*50 stepx=0 Else’倾斜移动 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=True’单击鼠标左键则触发Timer事件 E1se Timer1.Enabled=False’单击鼠标右键则 停止Timer事件 End If End Sub Private Sub Timer1_Timer() Shape1.Move Shape1.Left+stepx,Shapel.Top+stepy’移动shapel End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/8TUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Frame1、标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Check1、Check2、Check3,其标题分别是“上海
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
(1)在考生文件夹下有一个工程文件sit3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作:1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中;2)从名称为List1的列表框中选中一项(如图3-6
(1)在考生文件夹下有一个工程文件sit3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tul一1jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片框
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text
请根据以下各小题的要求设计VisuaIBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框,名称为Textl,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如图3—16
(1)在考生文件夹下有一个工程文件sit3.vbp,相应的窗体文件为sit3.frm,包含了所有控件和部分程序,如图3—90所示。要求如下:①利用属性窗口向列表框添加四个项目:VisualBasic、TurboC、C++、Java。②请编写适当的程
随机试题
企业开展目标市场营销主要包括的环节有()
关于膀胱原发恶性肿瘤,正确的说法有
腹泻脱水患儿补液后排尿,此时输液瓶中尚有不含钾液体400ml,此液体中最多可加入10%氯化钾多少毫升
下列哪一种行为可以构成伪证罪?()(2004年卷二第7题)
教学是学校的_____工作,是贯彻国家的教育方针,实现教育目的的_____。
蔡襄是北宋著名书法家、文学家、茶学家。下列关于蔡襄说法错误的是:
[*]
在Windows系统中若要显示IP路由表的内容,可以使用命令__________。(2011年上半年试题)
SoftwarepiracyproblemsexistandhavebeenexacerbatedinrecentyearsduetoISoverload,decentralizedpurchasing,budgetc
A、Britain.B、TheUnitedStates.C、France.D、Japan.B事实细节题。在具体阐述这两个名词时,短文中提到HightechbecameapopularexpressionintheUnited
最新回复
(
0
)