首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timerl的定时器,以及两条水平直线,名称分别为Linel和Line2。 请用名称为Shapel的形状控件,在两条直线之间画一个宽和高都相等的形状,设置其形状为圆,并设置适当属性使其满足
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timerl的定时器,以及两条水平直线,名称分别为Linel和Line2。 请用名称为Shapel的形状控件,在两条直线之间画一个宽和高都相等的形状,设置其形状为圆,并设置适当属性使其满足
admin
2020-04-08
18
问题
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timerl的定时器,以及两条水平直线,名称分别为Linel和Line2。
请用名称为Shapel的形状控件,在两条直线之间画一个宽和高都相等的形状,设置其形状为圆,并设置适当属性使其满足以下要求:
①圆的顶端距窗体Forml顶端的距离为360;
②圆的颜色为红色(红色对应的值为:&H000000FF&或&HFF&),如图所示。
程序运行时,Shapel将在Linel和Line2之间运行。当Shapel的底部到达Line2时,会自动改变方向向上运动;当Shapel的顶端到达Linel时,会自动改变方向向下运动。
文件中给出的程序不完整,请去掉程序中的注释符,把程序中的?改为正确内容,使其实现上述功能。
注意:不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,新建一个形状控件,并按表4.5l所示设置属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“·”,将问号改为正确的内容。 参考答案(划线部分是需考生填入的内容) Dim S As Integer,h As Long Private Sub Form Load() Timerl.Enabled=
Ture
s=-40 End Sub Private Sub Timerl_Timer() Shapel.Move Shapel.Left,Shapel.Top+s If Shapel.Top<=
Linel.Y1
Then s=-s End If If Shapel.Top+
Shapel.Height
> =Line2.Y1 Then′圆的底端坐标加上圆的自身高度与Line2比较 s= -s End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过形状控件的Move方法,实现形状的移动,通过Shapel.Top的值和Linel.Y1的值进行比较来判定圆形是否越过上界,通过比较Shapel.Top+Shapel.Height的值和Line2.Y1的值来判定圆形是否越过下界。
转载请注明原文地址:https://jikaoti.com/ti/YEx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列控件中,没有Caption属性的是( )。
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是()。
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima(4,4) Fori=1To4 Forj=1To4
某系统总体结构图如下图所示:该系统总体结构图的深度是( )。
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是()。
随机试题
台式卧式铣镗床的镗轴直径为()mm。
某有限责任公司股东大会决定解散该公司,该公司下列行为中符合法律规定的有()
“以天下之美为尽在己”句中“以”是()
急性再生障碍性贫血时血液学改变为
男性,32岁,腰痛10个月,经检查诊断为腰椎3~4结核,经非手术治疗半年症状明显好转,但仍遗留腰痛,屈、伸活动时痛加重。复查X线摄片示无死骨或脓肿,骨质疏松好转,病灶边缘清晰。过屈、过伸侧位X线摄片示患椎有不稳定现象。宜采用的治疗为
上消化道系指
可以实施“常规预防性应用抗菌药物的情况”是
下列属于《公民道德建设实施纲要》所要提出的职业道德规范的是()
阅读材料,并按要求作答。巨人的花园从前,一个小村子里有座漂亮的花园。那里,春天鲜花盛开,夏天绿树成阴,秋天鲜果飘香,冬天白雪
Tearsineyes,shefoundhiscatseriously(wound)______.
最新回复
(
0
)