4(1)在考生目录下有一个工程文件sj3.vbp，窗体中有一个命令按钮，标题为"向左移动"，名称为Command1;还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求：

　　设置计时器的属性，使其在初始状态不计时;设置计时器的属性，使其每隔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计时器，即设置其周期，补充后的具体代码如下：

　　Private Sub Command1_Click()

　　Timer1.Interval = 300 '设置Timer的周期

　　End Sub

　　Private Sub Timer1_Timer()

　　Command1.Left = Command1.Left - 100 'Command向左移动

　　If Command1.Left < 0 Then

　　Command1.Left = Form1.Width - Command1.Width

　　'当移动出最左端时，Command返回窗体最右端

　　End If

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　(2)本题主要考查复选框(CheckBox)和单选按钮(OptionButton)，以及用IF语句编程的综合运用。

　　复选框组常用于提供多重选择，Value属性值决定每个复选框的选中状态：0表示未选;1表示选中;2表示不可用(即灰色);单选按钮组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False表示未选、True表示选中。

　　根据题意，窗体已设计好，只要考生编写相应的代码以实现其功能。双击Command1进入代码窗口，编写如下代码：

　　Private Sub Command1_Click()

　　If Option1.Value = True Then '选择Option1

　　If Check1.Value = 1 And Check2.Value = 1 Then

　　Label1.Caption = "我既会" + Check1.Caption + "也会" + Check2.Caption

　　ElseIf Check1.Value = 1 Then

　　Label1.Caption = "我只会" + Check1.Caption '显示我只会英语

　　ElseIf Check2.Value = 1 Then

　　Label1.Caption = "我只会" + Check2.Caption '显示我只会德语

　　End If

　　Else '选择Option2

　　If Check1.Value = 1 And Check2.Value = 1 Then

　　Label1.Caption = "我既不会" + Check1.Caption + "也不会" + Check2.Caption

　　ElseIf Check1.Value = 1 Then

　　Label1.Caption = "我不会" + Check1.Caption '显示我不会英语

　　ElseIf Check2.Value = 1 Then

　　Label1.Caption = "我不会" + Check2.Caption '显示我不会德语

　　End If

　　End If

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015年9月计算机等级考试各科目考前必做试题

　　2015年计算机二级《C语言》冲刺试题及答案汇总