原理：利用VBA实现

示例：

实现步骤：

1）新建一张幻灯片，并将版式设置为空白版式。先插入一个文本框，输入填空题的题干，如图6-1所示。

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359095984.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-1

2）选择“视图”---“工具栏”--“控件工具箱”，调出控件工具箱，如图6-2和6-3所示。

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359112124.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-2

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359126357.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />

6-3  控件工具箱

在控件工具箱中，单击文本框按钮http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359160503.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />，在填空题题干后面的合适位置，拖出一个文本框（TextBox），如图6-4所示。

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359173252.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-4

右键单击该“文本框”，选择“属性”按钮，出现属性面板，如图6-5所示。

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359190474.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-5

在属性面板中，将“名称”改为txtInput1，如图6-6所示。

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359204309.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-6

3）在控件工具箱中，单击命令按钮http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359231404.jpgPowerPoint课件制作技巧选讲：VBA制作填空题" />，在文本框后面合适位置拖出一个命令按钮框（CommandButton），如图6-7所示。

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359244775.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-7

右键单击该“命令按钮”，选择“属性”，出现属性面板，在属性面板中，将“名称”选项改为“btnCheck”，“Caption”选项改为“确定”，如图6-8所示。

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359265372.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-8

在控件工具箱中，单击标签按钮http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359281607.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />，在填空题题干下面的合适位置，拖出一个标签（Label），如图6-9所示。

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359298051.pngPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-9

右键单击该“标签”按钮，选择“属性”，出现属性面板，在属性面板中，将“名称”改为lblFeedback，“Caption”内容改为空，如图6-10所示。

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359321279.jpgPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-10

4）双击命令按钮并输入以下代码，如图6-11：

If txtInput1.Text = "北京" Or txtInput1.Text = "北京市" Then

    lblFeedback.Caption = "回答正确"

    lblFeedback.Caption = "回答错误"

End If

http://www.zhejiangedu.com/zhejiang/upload/ckeditor_files/img/2012/04/1333359334484.jpgPowerPoint课件制作技巧选讲：VBA制作填空题" />

图6-11

5）单击“幻灯片放映”---“观看放映”，即可查看效果。