问答题
在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm，窗体已经设计好，要求考生用If语句编写程序，使得程序运行时，满足下列要求。不得使用任何变量。存盘时不得改变文件央和文件名。
本题描述如下：
窗体上有两个复选框，名称分别为Check1和Check2，标题分别为“英语”和“德语”两个单选按钮，名称分别为Option1和Option2，标题分别为“我会”和“我不会”；一个名称为Label1的标签；一个名称为Command1、标题为“输出”的命令按钮。要求程序运行后，对复选框和单选按钮进行选择，然后单击按钮，可根据下表的规定在标签中显示相应的信息：
程序运行时的界而如图所示。
本题描述如下：
窗体上有两个复选框，名称分别为Check1和Check2，标题分别为“英语”和“德语”两个单选按钮，名称分别为Option1和Option2，标题分别为“我会”和“我不会”；一个名称为Label1的标签；一个名称为Command1、标题为“输出”的命令按钮。要求程序运行后，对复选框和单选按钮进行选择，然后单击按钮，可根据下表的规定在标签中显示相应的信息：
| 标签中显示相应的信息 | |
| 选择项 | 标签中显示的信息 |
| Check1、Check2、Opion1 | 我既会英语也会德语 |
| Check1、Option1 | 我只会英语 |
| Check2、Option1 | 我只会德语 |
| Check1、Check2、Option2 | 我既不会英语也不会德语 |
| Check1、Option2 | 我不会英语 |
| Check2、Option2 | 我不会德语 |
【正确答案】本题主要考查复选框(CheekBox)和单选按钮(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
Else If Cheek1.Value=1 Then
Label1.Caption="我只会"+Check1.Caption '显示我只会英语
EIse If Check2.Value=1 Then
Label1.Caption="我只会"+Check2.Caption '显示我只会德语
End If
Else '选择Option2
If Check1.Value=1 And Cheek2.Value=1 Then
Label1.Caption="我既不会"+Check1.Caption+"也不会"+Check2.Caption
Else If Check1.Value=1 Then
Label1.Caption="我不会"+Cheek1.Caption '显示我不会英语
Else If Check2.Value=1 Then
Label1.Caption="我不会"+Check2.Caption '显示我不会德语
End If
End If
End Sub
单击
复选框组常用于提供多重选择，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
Else If Cheek1.Value=1 Then
Label1.Caption="我只会"+Check1.Caption '显示我只会英语
EIse If Check2.Value=1 Then
Label1.Caption="我只会"+Check2.Caption '显示我只会德语
End If
Else '选择Option2
If Check1.Value=1 And Cheek2.Value=1 Then
Label1.Caption="我既不会"+Check1.Caption+"也不会"+Check2.Caption
Else If Check1.Value=1 Then
Label1.Caption="我不会"+Cheek1.Caption '显示我不会英语
Else If Check2.Value=1 Then
Label1.Caption="我不会"+Check2.Caption '显示我不会德语
End If
End If
End Sub
单击
【答案解析】