首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“向左移动”,名称为Commandl;还有一个计时器,名称为Timerl。并给出了两个事件过程,但并不完整。设置计时器的属性,使其在初始状态不计时;设置计时器的属性,使其每隔0.3
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“向左移动”,名称为Commandl;还有一个计时器,名称为Timerl。并给出了两个事件过程,但并不完整。设置计时器的属性,使其在初始状态不计时;设置计时器的属性,使其每隔0.3
admin
2012-10-09
47
问题
(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全国计算机二级
相关试题推荐
用Dim(1,3to7,10)声明的是一个______维数组。
关系操作的特点是【】操作。
下列说法中,不属于数据模型所描述的内容的是
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
在算法正确的前提下,评价一个算法的两个标准是【】。
以下属于VisualBasic中合法的数组元素的是
下列程序段的执行结果为 I=4 x=5 Do I=I+1 X=K^2 LoopUntilI>=7 Print"I=";I Print"x=";x
下列叙述中,正确的是
算法的基本特征是可行性、确定性、【】和拥有足够的情报。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不
随机试题
在心脏,传导速度最快的是
症见汗热而黏如油,脉疾者,为
随楔状缺损加深可出现的并发症除外
甲向乙借款20万元做生意,由丙提供价值15万元的房屋抵押,并订立了抵押合同。甲因办理登记手续费过高,经乙同意未办理登记手续。甲又以自己的一辆价值6万元的"夏利"车质押给乙,双方订立了质押合同。乙认为将车放在自家附近不安全,决定仍放在甲处。一年后,甲因亏损无
设直线的方程为则直线()。
在没有正当理由的情况下对特定纳税人给予特别优惠,违背了税法基本原则中的()。
化学学习评价的根本目的是()。
Thegreatmajority______(赞成)GoldenWeekholidays.
(1)“老字号”生意每况愈下(2)出现许多仿冒“老字号”(3)仿冒付出了沉重代价(4)一个“老字号”天下闻名(5)要求保护自己的“商标权
下面程序中对一维坐标点类Point进行运算符重载#includeusingnamespacestd;classPoint{public:Point(intval){x=val;}Point
最新回复
(
0
)