PPT实例：互动式幻灯片(4)

 　4、双击插入的命令按钮，进入VBA编辑窗口（如图八），在“Private Sub CommandButton1_Click()”和“End Sub”语句之间，输入下述代码：

　　If TextBox1.Text = "物理" Then
　　　　hd = MsgBox("你填对了", vbOKCancel, "结果")
　　Else
　　　　hd = MsgBox("你填错了", vbOKCancel, "结果")
　　End If

　　代码输入完成后的效果请参见图八。

　　注意：①代码中的“hd”为自定义变量，可以用其他字母代码。②根据实际需要，可以将代码中的相应的字符替换成其他字符。

　　5、关闭VBA编辑窗口。

　　制作完成，赶快按下F5功能键，检查一下实际效果吧（图九是演示的效果）！