首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
admin
2019-06-24
68
问题
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考答案(画线部分是需考生填入的内容) Dim stepy As Integer ’纵向移动增量 Dim stepx As Integer ’横向移动增量 Const LEFT BUTTON=1 Private Sub Form_MouseDown(Button AsInteger,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事件 Else
Timer1.Enabled
=False’单击鼠标右键则停止Timer事件 End If End Sub Private Sub Timer1_Timer() Shapel.Move Shapel.Left+stepx,Shapel.Top+
stepy
’移动shapel End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过鼠标左键单击位置的坐标及圆心的坐标确定一条直线,并沿着这条直线移动,通过计算这条直线的斜率,得知水平位移和竖直位移,再通过形状控件的Move方法、Left和Top属性实现形状控件位置的移动。
sgn(x)函数返回x的正负号,如果X为正数,返回1;如果为负数,返回一1;如果为0,则返回0。
转载请注明原文地址:https://kaotiyun.com/show/QqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列选项中,不属于数据管理员(DBA)职责的是()。
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
(1)在名称为Form1的窗体上画一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在运行时当用鼠标右键单击窗体时,弹出此菜单,
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组,含三个命令按钮,它们的Index属性分别为0、1、2,标题依次为“是”、“否”、“取消”,每个按钮
为了保存数据,需打开顺序文件“E:\UserData.txt”,以下正确的命令是
以下能对正实数d的第3位小数四舍五入的表达式是
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click()Dims:a%=100:PrintaEndSub其中变量a和s的数据类型分别是
数据库管理系统是
数学式子5+(a+b)×2对应的VisualBasic表达式是()。
把数学表达式表示为正确的VB表达式应该是()。
随机试题
绿色瘤常见于()
锯条通常使用碳素工具钢、合金工具钢或渗碳钢冷轧并经淬火制成。()
论述丁玲小说创作的艺术成就。
TheuniversityofMichigan,whichwas______in1817,islocatedinAnnArbor.
我国法定传染病中,甲类传染病包括()。
县林业局与本局王某等5名干部家属签订了承包该局所管辖的某乡林业检查站的合同。合同规定:工资自付,全奖全罚。因王某等承包人私印收费凭证,对当事人乱收、滥罚,县林业局遂决定废止合同。王某等人不服,诉至法院。法院判决合同无效,追缴罚款。请问王某败诉的原因何在?(
某投资人若6年年内每年年末存5000元,年利率8%,则第6年年末本利和为()元。
根据下列统计资料回答问题。2017年1一8月,W省完成民间固定资产投资(以下简称民间投资)10287.23亿元,同比增长12.6%,比全国民间投资增速快6.2个百分点,比上年同期快10.2个百分点,比上半年和一季度分别加快1.1个和6.0个百分点。1—
编号为1、2、3、4的四把椅子,摆成一个圆圈。现有甲、乙、丙、丁四人去坐,规定甲、乙两人必须坐在相邻座位上,一共有多少种坐法?
设f(x),g(x)在点x=0的某邻域内连续,且当x→00时f(x)与g(x)为等价无穷小量,则当x→0时∫0xf(t)(1一cost)dt是∫0xt2g(t)dt的()
最新回复
(
0
)