首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Commandl、标题为“开始”的命令按钮,如图所示。 要求:通过属性窗口设置适
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Commandl、标题为“开始”的命令按钮,如图所示。 要求:通过属性窗口设置适
admin
2016-06-30
78
问题
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Commandl、标题为“开始”的命令按钮,如图所示。
要求:通过属性窗口设置适当的属性,再编写适当的事件过程,使得程序运行时,单击“开始”按钮,图片可以每0.2秒向右移动50。
注意:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
步骤1:新建一个窗体,按照题目要求添加图像框控件,计时器控件和Command控件。 步骤2:在属性窗口中设置各控件的属性,如表1.2所示。 [*] 步骤3:编写程序代码。 Private Sub Commandl_Click() Timerl.Enabled=True End Sub Private Sub Timerl_Timer() Imagel.Left=Imagel.Left+50 End Sub 步骤4:调试并运行程序,关闭程序后按题目要求存盘。
解析
Image控件的Picture属性和Left属性;Timer控件的Interval属性和Enabeld属性及Timer时间过程。在Timer控件的属性窗口将Interval属性设置为200,将Enabled属性设置为False。当程序运行时,单击按钮将Timer控件的Enabled属性设置为True,此时启动计时器的计时功能。在Timer事件过程中,设置Image控件的Left属性。
转载请注明原文地址:https://kaotiyun.com/show/yeLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于______的联系。
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、______和选择排序等。
下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。PrivateSubForm_Click()Dimnasinteger,Sasinteger,Iasinteger,kasintegers=0
使图像(Image)控件中的图像自动适应控件的大小应()。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Crick()DimIAsInteger,nAsIntegerForj=0T
数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时,其逻辑结构可以不变,因此,基于逻辑结构的应用程序不必修改,称为______。
对变量名说法不正确的是()。
在运行阶段,要在文本框Text1获得焦点时选中文本框中的所有内容,则对应的事件过程是()。
下列叙述中正确的是()。
以下关于多窗体的叙述中,正确的是
随机试题
长篇小说《务虚笔记》的作者是________。
按电信号类型和集成电路的功能,可将集成电路分为______和______。
A.间歇脉B.缓脉C.三联律D.绌脉E.速脉大出血前期的脉搏是()。
下列英国的著名景点中,被列入《世界遗产名录》的有()。
A.watchB.informationC.withPhrases:A.associated【T1】______a22-minutereductionintheirlifeexpectancyB.livedanaver
社会学习论者的研究表明,受到奖励或指责的榜样对儿童具有()。
设f(x)连续,则=________.
有以下程序#include<stdio.h>voidmain(){chars[]="012xy\08s34f4w2";inti,n=0;for(i=0;s[i]!=0;i++)if(s[i]>=’0’&&s[i]<
下列叙述中,正确的是
Youknowyouhavetoread"betweenthelines"togetthemostoutofanything.Iwanttopersuadeyoutodosomethingequallyim
最新回复
(
0
)