用VBA制作智能交互型课件31.pptx

如果课件要求智能反馈，如填空题、选择题或判断题等，可利用控件搭建环境，利用VBA编程，来实现复杂的智能交互。;（一）常用控件的属性设置 1．复选框（CheckBox） 可以选择多个选项，常用来设计多选题；其属性设置： AutoSize有两个值，True表示根据字的多少调整复选框大小，False表示复选框为固定大小 BackColor：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；;Caption：控件的名称，把默认值删除后，再重新输入新名称； Font：设置字体、字号及字形，单击???属性框出现按钮，单击该按钮出现字体对话框，再在对话框中对字体格式设置； ForeColor：设置字的颜色，设置方法同 BackColor； Height：复选框的高度，直接输入数字即可； Width：复选框的宽度，直接输入数字即可； Value：复选框的值，True为选中，相反False则为未选中。;2．文本框（TextBox） 可以输入文本，常用来设计填空题；其AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框； Value：文本框的值，用来保存输入的文本； TextAlign：设置文本对齐方式。 3．命令按钮（CommandButton） 用来确定选择或输入，也可设计超级链接等；属性设置同复选框。;4．单选框（OptionButton） 只能选中一个选项，常用来设计单选题或判断题；除Value外，其他同复选框。 5．标签（Label） 用来显示文字信息。除Value外，其它同复选框 ;6．消息框（MsgBox） 常用消息框显示一些交互的信息，如图所示的消息框用下面的语句可实现： MsgBox(“这是一个例题”,vbYesNo,”示例”);双击幻灯片中的控件，或用菜单 “工具”->“宏”->“Visual basic编辑器”命令，即可进入VBA编程状态。进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调出该窗口。;二、制作智能交互型的课件 以制作单选题、选择题、判断题和填空题为例来介绍智能的课件的制作方法。;（一）单选题的制作 1．题目 题目的输入可用文本框，也可用标签。 如果用文本框，直接输入文本即可。如果用标签,插入后双击该标签启动VBA，修改Caption属性为“5X-15=0的解是：”，再根据需要修改其他属性。;2．答案选项 插入一个单选框（第一个单选框），修改其Caption属性为“A 3”，其他属性可自行修改。其他的单选项可复制制作好的单选框，然后再分别修改它们的Caption属性为“B 5”、“C 11”和“D 18”。;3．“查看答案”命令按钮 在此插入一个命令按钮（第一个命令按钮），我们可根据单选框的Value属性的值来判断答案，如正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误，另外还可根据选择正误来给出提示信息，有两种方法。;（1）方法一 用MsgBox()，如果选择正确，显示信息“Very Good！请继续！”，选择错误则显示“Sorry，你选错了！正确答案是3，请继续努力。”具体操作步骤：双击单选框进入VBA编辑窗口，在编辑窗口中完成以下操作。;1）在编辑窗口中找到如下两条语句：Private Sub OptionButton1_Click()和End Sub语句。 然后在上面这两条语句中间插入以下语句： If OptionButton1.Value=True Then ex=MsgBox(“Very Good！请继续努力。”, vbOKOnly);方法1的代码编辑窗口;2）同理，找到如下三组语句： 第一组语句：Private Sub OptionButton2_Click()和End Sub； 第二组语句：Private Sub OptionButton3_Click()和End Sub； 第三组语句：Private Sub OptionButton4_Click()和End Sub。;在这三组的两条语句中间分别插入语句： If OptionButton2.Value=True Then ex=MsgBox(“正确答案是3，请继续努力。”, vbOKOnly) If OptionButton3.Value=True Then ex=MsgBox(“正确答案是3，请继续努力。”, vbOKOnly) If OptionButton4.Value=True Then ex=MsgBox(“正确答案是3，请继续努力。”, vbOKOnly) 说明：ex为自定义变量 在所有代码的前使用dim ex定义变量e