首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上添加一个名称为Shnpe1的形状控件,位置在窗体的顶部,在属性窗口中将其设置为圆形。添加一个名称为Timer1的计时器,在属性窗口中将其设置为禁用,时间间隔为0.5秒,窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程,
在名称为Forml的窗体上添加一个名称为Shnpe1的形状控件,位置在窗体的顶部,在属性窗口中将其设置为圆形。添加一个名称为Timer1的计时器,在属性窗口中将其设置为禁用,时间间隔为0.5秒,窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程,
admin
2016-06-30
50
问题
在名称为Forml的窗体上添加一个名称为Shnpe1的形状控件,位置在窗体的顶部,在属性窗口中将其设置为圆形。添加一个名称为Timer1的计时器,在属性窗口中将其设置为禁用,时间间隔为0.5秒,窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程,使得程序一开始运行,计时器即变为可用,且每隔0.5秒形状控件向下移动100。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表2。 [*] 步骤2:编写程序代码。 Private Sub Form_Load() Timer1.Enabled=True End Sub Private Sub Timerl_Timer() Shape1.Top=Shape1.Top+100 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
在Form Load事件过程中,Timerl的Enabled属性设置为True,计时器变为可用,在Timerl Timer计时器的事件过程,通过形状控件的Top值每隔0.5秒加100。实现每隔0.5秒形状控件向下移动100。
转载请注明原文地址:https://kaotiyun.com/show/plLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一个控件在窗体上的位置由______和Top属性决定。
窗体上有一个命令按钮,命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Dima a=Array(1,2,3,4,5) Fork=1To4 s=s+a(k)
如果在一新建的工程中使用其他工程已设计好的窗体,可以采用()步骤将其添加到当前工程中。
如果模块定义为:DefStrC-F则以下语句运行后输出结果是()。d$="321"f="654"printd+f$
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下而的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSubF
在VisualBasic中,将一个窗体加载到内存进行预处理但不显示所使用的语句是______。
下面程序运行时,单击窗体后,窗体上显示的结果是()。PrivateSubForm_ClickDimIAsIntegerDimsumAsLongDimt1AsLongt1=1:sum=0
执行下面的程序段后,变量S的值为______。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
从键盘上输入一个浮点数asingle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asingle=InputBox(“请输入一个浮点数:”)strl$=Str$(asing
将E—R图转换到关系模式时,实体与实体间的联系可以表示成()。
随机试题
总成本是指全部产品的生产费用总和或全部菜点的成本之和。()
Onhernextanniversaryshe______marriedfor25years.
在编制预算定额人工消耗量时,已知其必需消耗的技术工种用工为30工日,超运距用工2工日,辅助用工3工日,人工幅度差率为10%,则预算定额的人工消耗量为()。
下列各项表述中,正确的有()。
如果服务对象对某物或某事感到害怕、恐惧、不敢接近,就可以运用( )的行为治疗技巧。
在经济运行过程中,阻碍互惠交换不能实现的主要障碍包括()。[2012年11月三级真题]
有医学研究显示,食用抗氧化剂对延长寿命没有显著帮助,有时甚至会对人体造成伤害。研究结果指出,不要再吃抗氧化剂了,而应该通过均衡的饮食和适当的运动来延长寿命。下列哪项如果为真,最能削弱上述研究成果?
网络故障管理的目的是保证网络能够提供连续、可靠的服务,主要是(60)。
Mostpeoplefeelstressatsometimeintheirlives.Somepeoplelikethispressureandworkbetterbecauseofit.Otherpeople
Thinkbeforeyoupost.Youmightnotbeawareofhowmuchinformationyou’re【C1】______.That’sthemessagefromthefounders
最新回复
(
0
)