首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上添加一个名称为Shnpe1的形状控件,位置在窗体的顶部,在属性窗口中将其设置为圆形。添加一个名称为Timer1的计时器,在属性窗口中将其设置为禁用,时间间隔为0.5秒,窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程,
在名称为Forml的窗体上添加一个名称为Shnpe1的形状控件,位置在窗体的顶部,在属性窗口中将其设置为圆形。添加一个名称为Timer1的计时器,在属性窗口中将其设置为禁用,时间间隔为0.5秒,窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程,
admin
2016-06-30
35
问题
在名称为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全国计算机二级
相关试题推荐
在Selectcase结构中,使用“To表达式”来指定一个范围时,必须把______的值写在前面。
在窗体中添加一个命令按钮,编写如下程序:PrivateSubSubl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;nEndSubPrivateSubCommand
要使某控件在运行时不可显示,应对属性()进行设置。
单击滚动条的滚动箭头时,产生的事件是()。
在窗体上画一个命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,3,5,7,9)j=1Fori=5To1St
下列叙述中正确的是()。
设有数组声明语句:OptionBase1DimA(2,-1To1)以上语句所定义的数组A为______维数组,共有______个元素,第一维下标从______到______,第二维下标从______到______。下列选项
下列叙述中正确的是()。
在满足实体完整性约束的条件下
随机试题
これから発表を始めます。まず最初に、今回の発表の流れといいますか、________を簡単にご説明いたします。
胰岛素降低血糖浓度的机制有()(2009年)
药物制剂的基础包括
评标委员会在对投标人的投标文件评审时,发现投标文件存在以下问题:分部分项工程单价与工程量的乘积与总价不一致;大写数额与小写数额不一致;投标人承诺工期比招标文件的要求适当延长。对上述情形正确的认定是()。
根据个人所得税法律制度的规定,下列免征个人所得税的是()。
E公司2007年销售收入为5000万元,2007年底净负债及股东权益总计为2500万元(其中股东权益2200万元),预计2008年销售增长率为8%,税后经营净利率为10%,净经营资产周转率保持与2007年一致,净负债的税后利息率为4%,净负债利息按上年未净
图腾产生之前的原始群尚处在自然状态中,各群体之间没有什么必然的联系,因此也就不可能有什么组织原则。图腾产生之后,每一个群体以一种图腾作为名称和标志,而且同一部落的各群体的图腾互相不重复。这是当时约定俗成的社会组织原则。法国学者倍松说,图腾制度“把各个‘个人
【26】【31】
Doyouknowanythingaboutthetrafficaccident______nearourschoolyesterday?
Afewyearsagoitwas【B1】______tospeakofagenerationgap,adivisionbetweenyoungpeopleandtheirelders.Parents【B2】____
最新回复
(
0
)