首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Command1、标题为“开始”的命令按钮,如图所示。 要求:通过属性窗口设置适当的属性
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Command1、标题为“开始”的命令按钮,如图所示。 要求:通过属性窗口设置适当的属性
admin
2016-06-23
48
问题
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Command1、标题为“开始”的命令按钮,如图所示。
要求:通过属性窗口设置适当的属性,再编写适当的事件过程,使得程序运行时,单击“开始”按钮,图片可以每0.2秒向右移动50。
注意:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
[操作步骤] 步骤1:新建一个窗体,按照题目要求添加图像框控件,计时器控件和Command控件。 步骤2:在属性窗口中设置各控件的属性,如表4.2所示。设置完成后窗体界面如图4.2所示。 [*] 步骤3:双击“右击”按钮,打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。编写程序代码。 参考代码(画下划线部分是需填入的内容) Private sub Command1_Click()
Timer1.Enabled=True
End Sub Private Sub Timer1_Timer()
Image1.Left=Image1.Left+50
End Sub 步骤4:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/BSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下一个函数过程:FunctionFun(aAsInteger)StaticC b=0:b=b+1:c=c+1 Fun=a+b+cEndFunction在窗体上添加一个命令按钮,事件过程如下:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() C="ABCD" Forn=1To4 Print______ Nex
设有关系R和s,关系代数表达式为R-(R-S)表示的是
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger a=3:b=4:c=5 PrintSec
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为______。
窗体上建立了一个名为CormnonDialong1的通用对话框,用下面的语句建立一个对话框:CommonDialong1.action=2则以下语句与之等价的是()。
在运行程序时,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到()事件。
下列叙述中错误的是
以下关系表达式中,其值为False的是()。
各种运算符间的优先顺序从高到低是
随机试题
适合需要多个职能部门的协调,并涉及复杂的技术问题又不要求技术专家全日制参与的项目的组织类型是()
简述古典科学管理理论最突出的贡献及其局限性。
______gotoutsidethanitbegantorain.
“带长剑兮挟秦弓,首身离兮心不惩”出自()
治疗上颌部面痛的主穴是
建设工程项目质量控制系统的控制目标是根据( )所规定的质量标准。
阅读材料,回答相关问题。课堂教学中陈旧的教学模式,落后的教学方法有碍学生创新精神的培养。随着教育改革的深入,教学方式、教师的角色、学生的地位等都发生了很大的变化。将教师讲、学生听的“一言堂”式教学,变为师生互动、相互促进的合作式教学;学
甲在缓刑考验期内犯罪,但在缓刑考验期满后才被发现,且未过追诉时效,对甲的处理应该是()。
通过连接两个进程的一个打开的共享文件,可以实现进程间的数据通信。这种通信方式称为()。
Forsometimepastithasbeenwidelyacceptedthatbabies—andothercreatures—learntodothingsbecausecertainactsleadto"
最新回复
(
0
)