首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
admin
2017-09-20
29
问题
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 Dim stepy As Integer ’纵向移动增量 Dim stepx As Integer ’横向移动增量 Const LEFT BUTTON=1 Private Sub Form_MouseDown(Button As Integer t Shift As Integer F X As Single , Y As Single) Dim x0 As Integer,y0 As Integer, a As Single,radius As Integer radius=Shape1.Width/2 ’圆的半径 If Button=LEFT BUTTON Then ’单击鼠标左键移动 x0=Shape1.Left+radius’圆心的x坐标 y0=Shape1.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 stepx=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() Shape1.Move Shape1.Left+stepx, Shape1.Top+stepy’移动shape1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/ykGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为()。DimA(3,3)ForM=1To3ForN=1To3IfN=MOrN=3-M+1ThenA(M,N)=1ElseA(M,N)=0
下列是一个体操评分程序。没满分为10分,20位评委,除去一个最高分和一个最低分,计箅平均分。PrivateSubCorrmland!Click()Max=0Min=10Fori=1To20n=Va
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimcAsIn
当把框架的什么属性设置为False时,其标题会变灰,框架中所有的对象均被屏蔽
在窗体上画一个名称为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSub
VisualBasic是一种面向对象的程序设计语言,构成对象的三要素是()。
排序是计算机程序设计中的一种重要操作,常见的拌序方法有插入排序、______和选择排序。
为了使命令按钮(名称为Command1)右移200,应使用的语句是
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
要把一个命令按钮设置成无效,应设置属性______的值为False。
随机试题
公平理论主要讨论报酬的公平性对人们工作积极性的影响,人们往往通过()两个方面的比较来判断其所获得报酬的公平性。
ThenorthernpartsoftheUnitedStatesgetverycoldinthewinter.Itsnowsagreatdealandthetemperatureoftengoes【C1】___
(2008年)在双缝干涉实验中,在给定入射单色光的情况下,用一片能通过光的薄介质片(不吸收光线)将双缝装置中的下面一个缝盖住,则屏幕上干涉条纹的变化隋况是()。
在编制“资产负债表”时,下列不应列入“存货”项目的是指()
战略实施完全是以()为导向。
企业购置用于环境保护、节能节水、安全生产等专用设备的投资额,适用企业所得税的优惠政策是()。
毛泽东对“实事求是”这句话作了科学解释的著作是()。
若p为非负实数,随机变量ξ的概率分布为则Eξ的最大值为____________,Dξ的最大值为____________.
阅读以下文字,完成问题。中华民族正处在伟大民族复兴的进程之中,民族的复兴必然与民族文化的复兴相关联,在我国历史上虽说是由儒、道、释三家构成中华文化,但儒学却一直曾居于主流地位,影响着中国社会生活的方方面面。因此,儒学的复兴和中华民族的复兴是分不开
A、Discussingadinnerinvitation.B、Talkingaboutamaddog.C、Freezingtheiceforthedinner.D、Waitingforabusincoldweat
最新回复
(
0
)