利用PPT制作交互试题填空题

利用PPT制作交互试题——填空题

主讲：黄业华

培训时刻:下午4:10-5:30

培训地址：新校区学术厅

备注：抄在继续教育手册18-19页

要求：第19页下端空白不超过4行

填空题（一），“打字，请填入你的答案！”

开始利用PPT制作填空题了，以前也做过填空题的课件，但只是局限于点击一下鼠标，然后答案文字就显现在空白的地址，无法操纵显示哪个空，无法自己输入答案，无法判定。既然咱们利用交互的方式了，那么以上几点都应该实现，那个地址，咱们利用的是PPT控件工具箱中，文本框控件与命令按钮控件的结合，来实现交互式填空题！

第一步：新建一张PPT，在页面中插入填空题题目文本，将需要填空的地址空出必然距离，然后打开控件工具箱，powerpoint默许界面中是没有控件工具箱的，调出方式是点击菜单“视图”——“工具栏”——“控件工具箱”调出，如图一：

图一

第二步：点击控件工具箱上的“文本框”控件，在咱们预留文字的地址拉出一个文本框，然后右键点击文本框，选择“属性”，调出文本框的属性窗口，如图二：

图二

第三步：调整文本框要紧属性（控件箱各控件属性说明我将在以后做一个专题详细说明，请大伙儿注意阅读），为了美观设置一下背景颜色和字体等。然后在从控件工具箱当选择“命令按钮”控件，在页面的适合位置拉出一个按钮，然后右键点击按钮，选择“命令按钮对象”——“编辑”，为咱们的按钮从头输入按钮文字为“判定”，如图三：

图三

第四步：双击命令按钮，咱们打开了一个新的界面，Microsoft Visual Basic 界面，也确实是咱们在powerpoint顶用到的VBA代码编程，一接触到编程，很多非信息技术教师立刻就会感到很高深，其实只要你会简单的英文，不需要把握

什么高难度的知识，只需要记住几行简单代码并明白得，会简单的变通一下，就足够咱们在以后PPT中制作交互课件的应用啦。

闲话少说，咱们先看目前的界面，目前已经有现成的2行代码了：

Private Sub CommandButton1_Click()

End Sub

光标停在2行代码中间位置，这2行代码是系统自动给出的，大体含义确实是当点击按钮时需要执行的命令，那么接下来咱们输入命令，代码如下：

If = "静静" Then

MsgBox "真棒！你答对了"

Else

MsgBox "太遗憾了，你答错了，加油！"

End If

窗口如图四：

图四

这几行代码的含义如下，括号中的字为注释：

If（若是） = "静静"（空格中的字是“静静”） Then（那么）

MsgBox "真棒！你答对了"（弹出一个窗口，显示“真棒！你答对了”）

Else（不然）

MsgBox "太遗憾了，你答错了，加油！"（弹出一个窗口，显示“太遗憾了，你答错了，加油！”）

End If（终止）

好了，关掉代码窗口，shift+F5，测试一下，看看你的填空题对不对！

注：有时候点击按钮没有反映，是因为powerpoint默许的宏平安性为高，这时vba代码无法执行，只要选择“工具”——“选项”——“平安性”——“宏平安性”，将平安级调低，然后从头启动一下powerpoint就能够够了。如图五：

另注：本人是针对教师编写的PPT利用技术专题，针对大部份教师没有代码编写方面的体会的普遍情形编写，不妥的地方请指正谅解。