首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运
在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运
admin
2020-04-08
43
问题
在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运动方向。
已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符。把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Dim d As Integer Private Sub Commandl_Click() Timerl.Enabled=True′当单击"开始"按钮时,Timer生效 End Sub Private Sub Command2一C1ick()
Timerl,Enabled
=False′当单击"停止"按钮时.Timer失效 End Sub Private Sub Form_Load() d=1 End Sub Private Sub Timerl_Timer() If Optionl Then"判断Optionl是否被单击 Shape2.Top=
Shape2,Top
+d*50′实现圆垂直移动 If Shape2.Top<=Shapel.
Top
or Shape2.Top+Shape2.Width>=Shapel· Top+Shapel.Height Then′判断Shape2与Shapel的位置 d=-d′当圆移出Shapel时,改变移动方向 End If ElseIf Option2 Then Shape2.Left=
Shape2.Left
+d*50′实现水平移动 If Shape2.Left<=Shapel.Left Or Shape2.Left+Shape2.Width>=Shapel· Left+Shapel.Width Then d=-d′当圆移出Shapel时,则改变移动方向 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
在Timerl.Timer事件过程中,通过判断单选按钮“纵向”或“横向”是否被选中来决定圆运动的方向,如果是纵向,则通过Shape2的Top和Width属性值的改变实现圆的移动,并通过判断Top属性值来确定是否到达上或下界,使圆向相反方向运动。如果是横向,则通过Shape2的Left和Width属性值的改变实现圆的移动。在Command2一Click事件过程中通过将Timerl的Enabled属性设置为False,使圆停止运动,在Commandl_Click事件过程中通过将Timerl的Enabled属性设置为True,使圆开始运动。
转载请注明原文地址:https://kaotiyun.com/show/1ATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列属性中,决定单选按钮是否被选中的是()。
以下关于窗体的叙述中错误的是( )。
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Commandl的命令按钮,要求当执行
下面关于文件叙述中错误的是( )。
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是()。
支持子程序调用的数据结构是( )。
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
随机试题
行政机关作出准予行政许可的决定,应当自作出决定之日起()内向申请人颁发、送达行政许可证件,或者加贴标签、加盖检验、检测、检疫印章。
从药物经济学方面来看,直接医疗成本不包括
患者,男,8岁,因腹痛伴呕吐1个月,持续加重1周入院,行心脏及腹部超声检查,下图为胸骨上窝大动脉长轴切面。经胸骨上窝不可以检查哪种心血管结构
心肌梗死患者血清LD1开始升高的时间是发病后
刘某在某银行存款3000元,在支取2990元后,存折上尚余10元。刘某将存折上的存款额涂改为10010元,到银行取款,因被识破而未能得逞。对刘某如何定罪处罚?()
以下是房产税纳税人的有()。
背景资料:某桥梁工程,合同工期15个月,总监理工程师批准的施工进度计划如下图所示。工程实施过程中发生下列事件:事件一:项目监理机构对G工作进行验收时发现该工程质量达不到合格标准,需加固补强,导致直接经济损失60万元。事件二:在第5个月初到第8个月
背景资料某安装公司项目经理部承建某厂机电安装工程总承包任务,合同总工期为14个月,其中除锅炉房的安装任务分包给锅炉安装专业公司外,其他单位工程由若干个施工作业队分别负责组织施工。由于锅炉安装专业公司在焊接锅炉受压元件时出现了质量问题,监理公司通知
企业运营管理的对象包括()。
对文物加强修缮管理,其目的是保护文物的特殊物质属性和直观形象,不改变文物原状。( )
最新回复
(
0
)