PowerPoint making automatic Interactive quiz courseware

At the end of each class, the teacher is accustomed to leaving a few exercises for the students to practise themselves in order to consolidate the knowledge of the classroom class. If you use PowerPoint to do the appropriate presentation, you can take advantage of its VBA features to make these exercises interactive.

As shown in Figure 1, this is an example of the answer interface, you can determine the correctness of multiple-choice multiple-choice questions, below we look at the specific implementation process.

1. Start PowerPoint2003 (similar to other versions of the operation), open the appropriate courseware presentation, positioning to the production exercises slide, input title dry characters.

2. Execute the view → toolbars → Control toolbox command, expand the Control Toolbox, click the check box button, and then drag a check box out of the slide.

3. Select the check box above (CheckBox1) and click the Properties button on the Control Toolbox. Open the Properties dialog box, switch to the "By Category" tab, expand the Appearance option, change the characters after "Caption" to the appropriate option characters (such as "Water"), and then expand Font "option, click the" Ellipsis "button on the right, open the" Font "dialog box, set a good font, font size, and so on.

Tip: Other properties of a control can take the default property directly.

4. Copy the above copy box three copies (depending on how much of the alternatives determine the number of copies), modify the "Caption" attribute to the other option characters for the topic (such as "soda ash, ripe lime, dry ice").

5. Then add a button to the slide with the command button in the Control Toolbox and modify its Caption property to "Judge" (or another character). Double-click the button to enter the Visual Basic Editor state (Figure 4), and enter the following code into the middle of a set of code that appears, and then close the window when you finish typing.

If CheckBox1.Value = True And CheckBox4.Value = True Then
MsgBox "选择正确。", vbOKOnly, "结果"
Else
If CheckBox1.Value = True Or CheckBox4.Value = True Then
MsgBox “选对了一个。”, vbOKOnly, “提示”
Else
MsgBox "选择错误！正确答案是“水和干冰”！", vbOKOnly, "提示"
End If
End If

Tip: The code above means that if (if) you select the 1th and 4th items (Checkbox1.value = True and Checkbox4.value = True), press the "Judge" button to eject the interface and message (MsgBox) box as shown in Figure 3 (select Error!). The correct answer is "water and dry ice"! --message content; only one "OK" button is displayed in the vbokonly--message box; prompt--message box title.

If you select only item 1th or item 4th, the message box will pop up as shown in the picture.

Other selections pop up a message box as shown in the picture.

6. Copy the command button above, change the "Caption" property to "re-election", and double-click the button to enter the following code into the middle of a set of code that appears, and then close the window when you are finished.

CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False

7. In the course of the demonstration, the students make the corresponding selection, press the "Judgment" button, you can make a corresponding judgment; If you think the choice is wrong, click the "Re-election" button, you can choose again.