2. 计算机
  3. (1)在考生目录下有一个工程文件sj3．vbp，窗体中有一个命令按钮，标题为“向左移动”，名称为Commandl；还有一个计时器，名称为Timerl。并给出了两个事件过程，但并不完整。设置计时器的属性，使其在初始状态不计时；设置计时器的属性，使其每隔0．3

(1)在考生目录下有一个工程文件sj3．vbp，窗体中有一个命令按钮，标题为“向左移动”，名称为Commandl；还有一个计时器，名称为Timerl。并给出了两个事件过程，但并不完整。设置计时器的属性，使其在初始状态不计时；设置计时器的属性，使其每隔0．3

admin2012-10-09  34
问题 (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全国计算机二级

相关试题推荐
随机试题
最新回复(0)