首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运
在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运
admin
2020-04-08
40
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
以下关于窗体的叙述中错误的是( )。
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Commandl的命令按钮,要求当执行
关于MDI窗体下列说法正确的是()。
下面关于文件叙述中错误的是( )。
在窗体上画一个名称为CD1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:PrivateSubCommand1_Click()CD1.FileName=""CD1.Filter="所有文件|*.*|(*.
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框PrivateSubCommandl一Click()Text1.Text=“程序设计”Text1.SetFocusEndSubPriv
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()CD1.ShowOpenOpen
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
随机试题
21岁,停经2个月,2天前在外自行堕胎,体温38.8℃,脉搏130次/min,血压正常,白细胞10×109/L,中性0.90,子宫如孕2个月大小,软,有压痛,经抗感染治疗,感染未能控制,突然大量阴道出血。下列哪项处理为宜
男性,56岁。半年前开始出现劳累后心前区疼痛,向左肩背部放射,休息3~5分钟后缓解,平均每月发作3~4次,未诊治,1周前,无诱因出现心前区紧缩性疼痛,伴心悸及恐惧感,休息后无缓解,含服异山梨酯10mg两次,10分钟后可稍缓解。既往健康,吸烟26年,15~2
配位滴定法选用指示剂为
皮肤创口缝合后过度外翻的原因是
正常分娩机制俯屈是胎头遇到阻力以枕额径转为
发包人在选择固定单价合同的计价方式发包工程时,建设工程项目通常应具备的特点包括()。
某境内机构经批准向境外投资,该机构以大型设备投资,作价50万美元,其汇回利润的保证金为()。
企业将收到的投资者以外币投入的资本折算为记账本位币时,应采用的折算汇率是()。
凡事______,说话也不例外,在开口说话之前也要思考,确定不会伤害他人再说出口,才能起到______的作用,你也才能受到别人的尊重和认可。填入横线部分最恰当的一项是()。
"Professor’sOffice"Whentheprofessorgivestheexampleofridingabicycle,whatkindofmemoryishereferringto?
最新回复
(
0
)