[问答题] 在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm，窗体已经设计好，要求考生用If语句编写程序，使得程序运行时，满足下列要求。不得使用任何变量。存盘时不得改变文件央和文件名。 本题描述如下： 窗体上有两个复选框，名称分别为Check1和Check2，标题分别为“英语”和“德语”两个单选按钮，名称分别为Option1和Option2，标题分别为“我会”和“我不会”；一个名称为Label1的标签；一个名称为Command1、标题为“输出”的命令按钮。要求程序运行后，对复选框和单选按钮

本题主要考查复选框(CheekBox)和单选按钮(OptionButton)，以及用If语句编程的综合运用。
复选框组常用于提供多重选择，Value属性值决定每个复选框的选中状态：0表示未选；1表示选中；2表示不可用(即灰色)；单选按钮组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False表示未选、True表示选中。
根据题意，窗体已设计好，只要考生编写相应的代码以实现其功能。双击Command1进入代码窗口，编写如下代码：
PrivateSubCommand1Click()
IfOption1.Value=TrueThen’选择Option1
IfCheck1.Value=1AndCheck2.Value=1Then
Label1.Caption="我既会"+Check1.Caption+"也会"+Check2.Caption
ElseIfCheek1.Value=1Then
Label1.Caption="我只会"+Check1.Caption’显示我只会英语
EIseIfCheck2.Value=1Then
Label1.Caption="我只会"+Check2.Caption’显示我只会德语
EndIf
Else’选择Option2
IfCheck1.Value=1AndCheek2.Value=1Then
Label1.Caption="我既不会"+Check1.Caption+"也不会"+Check2.Caption
ElseIfCheck1.Value=1Then
Label1.Caption="我不会"+Cheek1.Caption’显示我不会英语
ElseIfCheck2.Value=1Then
Label1.Caption="我不会"+Check2.Caption’显示我不会德语
EndIf
EndIf
EndSub
单击

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