首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
admin
2015-06-30
29
问题
在考生文件夹下有一个工程文件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 = 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 = ? Else a = (y - y0) / (x - x0) ’斜率 stepx = Sgn(x - x0) * 50 ’ ? = a * stepx If Abs(stepy) > Abs(stepx) Then stepy = Sgn(y - y0) * 50 stepx = stepy / a End If End If ’ ? = True Else ’ ? = False End If End Sub Private Sub Timer1_Timer() ’ Shape1.Move Shape1.Left + stepx, Shape1.Top + ? End Sub 程序结束 参考答案 第1个?处填入:0 第2个?处填入:stepy 第3个?处填入:Timer1.Enabled 第4个?处填入:Timer1.Enabled 第5个?处填入:stepy 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/rfQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果A为整数且|A|>=100,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是
以下语句的输出结果是a=Sqr(3)PrintFormat(a,"$$####.###")
下列叙述中错误的是
当将______属性设置为True时,可以滚动和选择控件中的文本,但不能编辑。
当变量x=2,y=5时,以下程序的输出结果为DoUntily>5x=x*yy=y+1LoopPrintx
双击窗体中的对象后,VisualBasic将显示的窗口是
在数据库设计中,将E—R图转换成关系数据模型的过程属于
一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的【】。
窗体中有两个命令按钮:“显示”(控件名为CmdDisplay)和“测试”(控件名为cmdTest).单击“测试”按钮时,执行如下事件过程。此事件过程的功能是:当在窗体中出现消息框并选中其中的“确定”按钮时,隐藏“显示”按钮,否则退出。请填空。Pri
在链表的运算过程中,能够使空表与非空表的运算统一的结构是______。
随机试题
发生销售折让时的会计分录为()
A初次注入大量抗毒素的马血清引起的血清病B血清性过敏性休克C自身免疫性溶血性贫血D接触性皮炎E支气管肺炎属于Ⅳ型超敏反应的是
病死猪,剖检时可视黏膜发绀,颌下淋巴结明显肿胀,外观灰白色,质地柔软,肺脏、肝脏及肾脏表面有大小不一的灰白色柔软隆起,切开病灶,见有灰黄色浑浊凝乳状液体流出。上述病灶局部的炎症反应为()
根据《中华人民共和国建筑法》规定,工程施工不符合( )。
某堤防工程项目业主与承包商签订了工程施工承包合同。合同中估算工程量为5300m3,单价为180元/m3。合同工期为6个月。有关付款条款如下:(1)开工前业主应向承包商支付估算合同总价20%的工程预付款;(2)业主自第一个月起,从承包商的工程款中,按5%
公安机关及其人民警察在执法过程中由于故意、过失或者意外的原因造成执法过错的,法制部门应当依法追究其执法过错责任。()
2011年粮食种植面积11057万公顷,比上年增加70万公顷。棉花种植面积504万公顷,增加19公顷。油料种植面积1379万公顷,减少10万公顷。糖料种植面积195万公顷,增加4万公顷。全年粮食产量57121万吨,比上年增加2473万吨,增产4
(2011首都经贸大学)在中国保险业的发展历史上,曾一度不重视保险公司的资金运用效益,而后又发展为对投资利润过度依赖,忽视承保业务的质量和效益。根据承保与投资的关系,对这两种模式加以评论。
曲线y=(x2+x)/(x2-1)渐近线的条数为
2018年3月,一家名为Cambridge.Analytica的数据分析公司通过一个应用程序收集了5000万Facebook用户的个人信息,该应用程序详细描述了用户的个性、社交网络以及在平台上的参与度。尽管CambridgeAnalytica公司声称它只
最新回复
(
0
)