ppt 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.

Figure 1

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

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

Figure 2

3. Select the above check box (CheckBox1), click the Properties button on the Control Toolbox to open the Properties dialog box, switch to the "Sort by category" tab, expand the Appearance option, and change the character after "Caption" to the corresponding option character (such as "water"). Then expand the "Font" option, click on the right "ellipsis" button, 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 the number of alternatives to determine the amount of replication), respectively, the "Caption" property modified to the title of other option characters (such as "soda, ripe lime, dry ice").

5. Then use the command button on the Control Toolbox to add a button to the slide 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 "Choose the right. ", vbOKOnly," results "

Else

If Checkbox1.value = True Or Checkbox4.value = True Then

MsgBox "picked the right one. ", vbOKOnly," hint "

Else

MsgBox "Wrong choice!" The correct answer is "water and dry ice!", vbOKOnly, "hint"

End If

End If

Tip: The meaning of the above code is 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 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 header).

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

Figure 3

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

Figure 4

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 it is 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.