用powerpoint制作交互式多选题

 

如上图，多选题在课堂教学中十分实用，因此有必要研究、应用。

首先，用插入文本框的方法输入题目的题干部份“1．下列有关声现象的说法中正确的是：”，设置为楷体36黑，再用控件工具箱中的复选框做好四个选项。先做好第一个以后，复制得到其它三个再修改。

1.执行“视图→工具栏→控件工具箱”命令，展开“控件工具箱”，点击一下其中的“复选框”按钮，然后在幻灯片中拖拉出一个复选框“CheckBox1”来。

右键单击“CheckBox1”，在弹出菜单中选择“属性”里，修改属性中的“Caption”为“Ａ．摩托车上安装消声器的目的是为了减小噪声”，修改属性中的“font”为宋体、二号，“Enable”为“ture”，“ForeColor”为&H00FF0000&，蓝色，“Autosize”为“ture”等。

 

本题前两项正确，为双选题，答案多选和漏选均为错误，因此选一、项三、项四项均为错。因此选第一、二项对同时不选三、四项才是正确的选择。

右键单击“CheckBox1”，在弹出菜单中选择“查看代码”，在 Private SubCheckBox1_Click()和End Sub 两段代码中间插入：

If CheckBox1.Value =True And CheckBox2.Value = True And CheckBox3.Value = False AndCheckBox4.Value = False Then

MsgBox("你真棒，答对了!")

Else

MsgBox("答错了，重新选择!")

End If

右击单选项，在弹出菜单中选择“设置控件格式”，在“设置控件格式”调整选项尺寸为高度：3，宽度：22

然后用复制出另外三个，分别修改它们的位置，在弹出菜单中选择“位置”，分别设置为“CheckBox1”（2，4）；“CheckBox2”（2，8）“CheckBox3”（2，12）；“CheckBox4”（2，16）,注（左上角，左上角）；

然后分别修改复制出另外三个“属性”和“察看代码”中的代码。

“CheckBox2”，属性中的“Caption”为“Ｂ．我们能区分不同同学说话的声音，是因为他们的音色不同”；“CheckBox3”，属性中的“Caption”为“Ｃ．只要物体在振动，我们就一定能听到声音”；“CheckBox4”，属性中的“Caption”为“Ｄ．在医院里医生通常利用超声波震动除去人体内的结石，说明声波能传递信息”。

   在每一项“查看代码”中都在 Private SubCheckBox1_Click()和End Sub 两段代码中间插入：

If CheckBox1.Value =True And CheckBox2.Value = True And CheckBox3.Value = False AndCheckBox4.Value = False Then

MsgBox("你真棒，答对了!")

Else

MsgBox("答错了，重新选择!")

End If

 

最后的代码如下：

Private SubCheckBox1_Click()

If CheckBox1.Value =True And CheckBox2.Value = True And CheckBox3.Value = False AndCheckBox4.Value = False Then

MsgBox("你真棒，答对了!")

Else

MsgBox("答错了，重新选择!")

End If

End Sub

 

Private SubCheckBox2_Click()

If CheckBox1.Value =True And CheckBox2.Value = True And CheckBox3.Value = False AndCheckBox4.Value = False Then

MsgBox("你真棒，答对了!")

Else

MsgBox("答错了，重新选择!")

End If

End Sub

 

Private SubCheckBox3_Click()

If CheckBox1.Value =True And CheckBox2.Value = True And CheckBox3.Value = False AndCheckBox4.Value = False Then

MsgBox("你真棒，答对了!")

Else

MsgBox("答错了，重新选择了!")

End If

End Sub

 

Private SubCheckBox4_Click()

If CheckBox1.Value =True And CheckBox2.Value = True And CheckBox3.Value = False AndCheckBox4.Value = False Then

MsgBox("你真棒，答对了!")

Else

MsgBox("答错了，重新选择!")

End If

End Sub

  至于：重新选择时，原先的选择状态还保留着的情况，可以用再次单击方法取消状态，保持选择状态为空。

   至于有几个答案，只要修改一下“If CheckBox1.Value = True And CheckBox2.Value = TrueAnd CheckBox3.Value = False And CheckBox4.Value = FalseThen”就可以了。

 

再复制出若干张幻灯片，只要修改一下题干和每一项中的属性中的“Caption”和四个选项中的代码就可以了。