设置计时器的属性，使其在初始状态不计时；设置计时器的属性，使其每隔0.3秒调用Timer1事件过程一次。
去掉程序中的注释符"‘"，把程序中的"?"改为正确的内容，使得在运行时单击"向左移动"按钮，则按钮每隔0.3秒向左移动一次，当移出窗体时返回窗体的右端，如图47-5所示。
图47-5
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
（2）在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm，窗体已经设计好，要求考生用If语句编写程序，使得程序运行时，满足下列要求。不得使用任何变量。存盘时不得改变文件夹和文件名。
本题描述如下：
窗体上有两个复选框，名称分别为Check1和Check2，标题分别为"英语"和"德语"；两个单选按钮，名称分别为Option1和Option2，标题分别为"我会"和"我不会"；一个名称为Label1的标签；一个名称为Command1、标题为"输出"的命令按钮。要求程序运行后，对复选框和单选按钮进行选择，然后单击按钮，可根据下表的规定在标签中显示相应的信息：
选择项 标签中显示的信息
Check1、Check2、Option1 我既会英语也会德语
Check1、Option1 我只会英语
Check2、Option1 我只会德语
Check1、Check2、Option2 我既不会英语也不会德语
Check1、Option2 我不会英语
Check2、Option2 我不会德语
程序运行时的界面如图47-6所示。
图47-6
参考答案
正确答案：
（1）本题考查计时器控件（Timer）、命令按钮控件（CommandButton）的常用属性和事件，以及编写简单事件过程。计时器只在设计时可见，计时器是否启用由其Enabled属性设置，值为True或False。启用后间隔多长时间触发一次其Timer事件由其Interval属性设置，Interval属性的单位为毫秒，缺省值为0，此时计时器也不启用。控制命令按钮向左移动可通过修改其Left属性值实现，当Left属性值超过窗体的Width属性值时表示按钮已移出窗体，此时Left属性值设为0即可将按钮返回窗体右端。移动按钮的事件过程均在计时器的Timer中实现。根据题意，将一个命令按钮和一个计时器控件添加到窗体中，命令按钮的名称为Command1、Caption属性为"向左移动"，Timer的名称为Timer1。双击Command1进入代码编写窗口，Timer1将隔一个周期调用Timer函数一次，而按下Command1将启动Timer1计时器，即设置其周期，补充后的具体代码如下：PrivateSubCommand1_Click()Timer1.Interval=300"设置Timer的周期EndSubPrivateSubTimer1_Timer()Command1.Left=Command1.Left-100"Command向左移动IfCommand1.Left<0ThenCommand1.Left=Form1.Width-Command1.Width"当移动出最左端时，Command返回窗体最右端EndIfEndSub单击按钮运行程序，并按要求保存。（2）本题主要考查复选框（CheckBox）和单选按钮（OptionButton），以及用IF语句编程的综合运用。复选框组常用于提供多重选择，Value属性值决定每个复选框的选中状态：0表示未选；1表示选中；2表示不可用（即灰色）；单选按钮组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False表示未选、True表示选中。根据题意，窗体已设计好，只要考生编写相应的代码以实现其功能。双击Command1进入代码窗口，编写如下代码：PrivateSubCommand1_Click()IfOption1.Value=TrueThen"选择Option1IfCheck1.Value=1AndCheck2.Value=1ThenLabel1.Caption="我既会"+Check1.Caption+"也会"+Check2.CaptionElseIfCheck1.Value=1ThenLabel1.Caption="我只会"+Check1.Caption"显示我只会英语ElseIfCheck2.Value=1ThenLabel1.Caption="我只会"+Check2.Caption"显示我只会德语EndIfElse"选择Option2IfCheck1.Value=1AndCheck2.Value=1ThenLabel1.Caption="我既不会"+Check1.Caption+"也不会"+Check2.CaptionElseIfCheck1.Value=1ThenLabel1.Caption="我不会"+Check1.Caption"显示我不会英语ElseIfCheck2.Value=1ThenLabel1.Caption="我不会"+Check2.Caption"显示我不会德语EndIfEndIfEndSub单击按钮运行程序，并按要求保存。