首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“向左移动”,名称为Commandl;还有一个计时器,名称为Timerl。并给出了两个事件过程,但并不完整。设置计时器的属性,使其在初始状态不计时;设置计时器的属性,使其每隔0.3
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“向左移动”,名称为Commandl;还有一个计时器,名称为Timerl。并给出了两个事件过程,但并不完整。设置计时器的属性,使其在初始状态不计时;设置计时器的属性,使其每隔0.3
admin
2012-10-09
49
问题
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“向左移动”,名称为Commandl;还有一个计时器,名称为Timerl。并给出了两个事件过程,但并不完整。设置计时器的属性,使其在初始状态不计时;设置计时器的属性,使其每隔0.3秒调用Timerl事件过程一次。使得在运行时单击“向左移动”按钮,则按钮每隔0.3秒向左移动一次,当移出窗体时返回窗体的右端,如图15—5所示。
注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm,窗体已经设计好,要求考生用If语句编写程序,使得程序运行时,满足下列要求。窗体上有两个复选框,名称分别为Checkl和Check2,标题分别为“英语”和“德语”;两个单选按钮,名称分别为Optionl和Option2,标题分别为“我会”和“我不会”;一个名称为Labell的标签;一个名称为Commandl、标题为“输出”的命令按钮。要求程序运行后,对复选框和单选按钮进行选择,然后单击按钮,可根据下表的规定在标签中显示相应的信息:
程序运行时的窗体界面如图15—6所示。
注意:不得使用任何变量。存盘时不得改变文件夹和文件名。
选项
答案
(1)本题考查计时器控件(Timer)、命令按钮控件(CommandButton)的常用属性和事件以及编写简单事件过程。 计时器只在设计时可见,计时器是否启用由其Enabled属性设置,值为True或False。启用后间隔多长时间触发一次其Timer事件由其Interval属性设置,Interval属性的单位为毫秒,缺省值为0,此时计时器也不启用。 控制命令按钮向左移动可通过修改其Left属性值实现,当Left属性值超过窗体的Width属性值时表示按钮已移出窗体,此时Left属性值设为0即可将按钮返回窗体右端。移动按钮的事件过程均在计时器的Timer中实现。 根据题意,将一个命令按钮和一个计时器控件添加到窗体中,命令按钮的名称为Command1、Caption属性为“向左移动”,Timer的名称为Timer1。双击Commandl进入代码编写窗口,Timer1将隔一个周期调用Timer函数一次,而按下Commandl将启动Timer1计时器,即设置其周期,补充后的具体代码如下: Private Sub Command1_Click() Timer1.Interval=300’设置Timer的周期 End Sub Private Sub Timerl_Timer() Commandl.Left=Commandl.Left-100 ’Command向左移动 If Commandl.Left<0 Then Commandl.Left=Forml.Width-Commandl.Width’当移动出最左端时,Command返回窗体最右端 End If End Sub 单击[*]按钮运行程序.并按要求保存。 (2)本题主要考查复选框(CheckBox)和单选按钮(OptionButton),以及用If语句编程的综合运用。 复选框组常用于提供多重选择,Value属性值决定每个复选框的选中状态:0表示未选;1表示选中;2表示不可用(即灰色);单选按钮组常用于提供唯一选择,Value属性值决定每个单选按钮的选中状态:False表示未选,True表示选中。 根据题意,窗体已设计好,只要考生编写相应的代码以实现其功能。双击Commandl进入代码窗口,编写如下代码: Private Sub Commandl_Click() If Optionl.Value=True Then’选择Optionl If Checkl.Value=1 And Check2.Value=l Then Labell.Caption="我既会"+Checkl.Caption+"也会"+Check2.Caption Elself Checkl.Value=l Then Labell.Caption="我只会"+Checkl.Caption’显示我只会英语 Elself Check2.Value=1 Then Labell.Caption="我只会"+Check2.Caption’显示我只会德语 End If Else ’选择Option2 If Checkl.Value=1 And Check2.Value=1 Then Labell.Caption="我既不会"+Checkl.Caption+"也不会"+Check2.Caption Elself Checkl.Value=1 Then Labell.Caption="我不会"+Checkl.Caption’显示我不会英语 Elself Check2.Value=1 Then Labell.Caption="我不会"+Check2.Caption’显示我不会德语 End If End If End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/dChp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为______。
单击命令按钮时,下列程序的运行结果为PrivateSubCommand1_Click() PrintMyBM(23,18)EndSubPublicFunctionMyBM(mAsInteger,nAsInteger)AsIntege
下列不属于结构化分析的常用工具的是
下列叙述中,不正确的是
在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后,在列表中添加若干列表项。当双击列表框中的某个项目时,在标签Labe1中显示所选中的项如图所示。请在空白处填入适当的内容,将程序补充完整。 PrivateSubForm
将代数式转换成程序设计中的表达式为【】。
下列程序段的执行结果为 a=95 Ifa>60Thendegree=1 Ifa>70Thendegree=2 Ifa>80Thendegree=3 Ifa>90Thendegree=4 Print"deg
要获得当前驱动器应使用驱动器列表框的哪个属性_________。
随机生成的10个两位数,求出它们的总和和平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。说明:在窗体上有一个Command1按钮,单击它将计算10个随机数的和以及平均数,并
随机试题
人群归因危险度百分比(PAR%)
慢性阻塞性肺疾病失代偿期,Ⅱ型呼吸衰竭,给氧的原则是
干扰嗜铬细胞瘤患者血、尿儿茶酚胺测定结果的有(2006年)
急性特发性血小板减少性紫癜多见于()
某机械加工企业依据相关要求和规范,组织制定防止事故发生和减少事故损失的安全技术措施。下列举措中,用于防止事故发生的安全技术措施是()。
甲公司为增值税一般纳税人,适用的增值税税率为13%。2020年12月甲公司发生如下业务:(1)1日,与乙公司签订委托代销合同,委托乙公司销售A商品200件,合同约定乙公司按每件10万元对外销售。甲公司按售价的10%向乙公司支付手续费(手续费不考虑
Innovationiskeytobusinesssurvival,andcompaniesputsubstantialresourcesintoinspiringemployeestodevelopnewideas.T
Whatdoesthewomanmean?
--MayI______yourbike?--Sorry.I______ittoMaryyesterday.
A、Trytoeatless.B、Walkmorequickly.C、Usethestairs.D、Avoidfastfoods.A细节题。男士不赞成靠节食减肥,也不打算给女士开药,他提议少吃快餐,多吃蔬菜水果,多做运动。因此答案
最新回复
(
0
)