用VBA制作智能交互型课件

如果课件要求智能反馈，如填空题、选择题或判断题等，可利用控件搭建环境，利用VBA编程，来实现复杂的智能交互。第三节用VBA制作智能交互型的课件如果课件要求智能反馈，如填空题、选择题或判断题等，可利用控件1（一）常用控件的属性设置1．复选框（CheckBox）可以选择多个选项，常用来设计多选题；其属性设置：AutoSize有两个值，True表示根据字的多少调整复选框大小，False表示复选框为固定大小BackColor：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；一、VBA编程基础（一）常用控件的属性设置一、VBA编程基础2Caption：控件的名称，把默认值删除后，再重新输入新名称；Font：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中对字体格式设置；ForeColor：设置字的颜色，设置方法同BackColor；Height：复选框的高度，直接输入数字即可；Width：复选框的宽度，直接输入数字即可；Value：复选框的值，True为选中，相反False则为未选中。一、VBA编程基础Caption：控件的名称，把默认值删除后，再重新输入新名称32．文本框（TextBox）可以输入文本，常用来设计填空题；其AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；TextAlign：设置文本对齐方式。3．命令按钮（CommandButton）用来确定选择或输入，也可设计超级链接等；属性设置同复选框。一、VBA编程基础2．文本框（TextBox）一、VBA编程基础44．单选框（OptionButton）只能选中一个选项，常用来设计单选题或判断题；除Value外，其他同复选框。5．标签（Label）用来显示文字信息。除Value外，其它同复选框一、VBA编程基础4．单选框（OptionButton）一、VBA编程基础56．消息框（MsgBox）常用消息框显示一些交互的信息，如图所示的消息框用下面的语句可实现：

MsgBox(“这是一个例题”,vbYesNo,”示例”)用消息框显示交互信息一、VBA编程基础6．消息框（MsgBox）用消息框显示交互信息一、VBA编程6双击幻灯片中的控件，或用菜单“工具”->“宏”->“Visualbasic编辑器”命令，即可进入VBA编程状态。进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调出该窗口。（二）VBA的编程环境双击幻灯片中的控件，或用菜单“工具”->“宏”->“Vis7二、制作智能交互型的课件以制作单选题、选择题、判断题和填空题为例来介绍智能的课件的制作方法。二、制作智能交互型的课件二、制作智能交互型的课件二、制作智能交互型的课件8（一）单选题的制作1．题目题目的输入可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签,插入后双击该标签启动VBA，修改Caption属性为“5X-15=0的解是：”，再根据需要修改其他属性。单选题的运行界面二、制作智能交互型的课件（一）单选题的制作单选题的运行界面二、制作智能交互型的课件92．答案选项插入一个单选框（第一个单选框），修改其Caption属性为“A3”，其他属性可自行修改。其他的单选项可复制制作好的单选框，然后再分别修改它们的Caption属性为“B5”、“C11”和“D18”。二、制作智能交互型的课件2．答案选项二、制作智能交互型的课件103．“查看答案”命令按钮在此插入一个命令按钮（第一个命令按钮），我们可根据单选框的Value属性的值来判断答案，如正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误，另外还可根据选择正误来给出提示信息，有两种方法。二、制作智能交互型的课件3．“查看答案”命令按钮二、制作智能交互型的课件11（1）方法一用MsgBox()，如果选择正确，显示信息“VeryGood！请继续！”，选择错误则显示“Sorry，你选错了！正确答案是3，请继续努力。”具体操作步骤：双击单选框进入VBA编辑窗口，在编辑窗口中完成以下操作。二、制作智能交互型的课件（1）方法一二、制作智能交互型的课件121）在编辑窗口中找到如下两条语句：PrivateSubOptionButton1_Click()和EndSub语句。然后在上面这两条语句中间插入以下语句：IfOptionButton1.Value=TrueThenex=MsgBox(“VeryGood！请继续努力。”,vbOKOnly)二、制作智能交互型的课件1）在编辑窗口中找到如下两条语句：PrivateSub13方法1的代码编辑窗口二、制作智能交互型的课件方法1的代码编辑窗口二、制作智能交互型的课件142）同理，找到如下三组语句：第一组语句：PrivateSubOptionButton2_Click()和EndSub；第二组语句：PrivateSubOptionButton3_Click()和EndSub；第三组语句：PrivateSubOptionButton4_Click()和EndSub。二、制作智能交互型的课件2）同理，找到如下三组语句：二、制作智能交互型的课件15在这三组的两条语句中间分别插入语句：IfOptionButton2.Value=TrueThenex=MsgBox(“正确答案是3，请继续努力。”,vbOKOnly)IfOptionButton3.Value=TrueThenex=MsgBox(“正确答案是3，请继续努力。”,vbOKOnly)IfOptionButton4.Value=TrueThenex=MsgBox(“正确答案是3，请继续努力。”,vbOKOnly)说明：ex为自定义变量在所有代码的前使用dimex定义变量ex二、制作智能交互型的课件在这三组的两条语句中间分别插入语句：二、制作智能交互型的课件16二、制作智能交互型的课件（2）方法二在幻灯片合适的地方插入一个标签（第二个标签），修改其Caption属性为空，其他设置同方法一，只要把正确选项中的“then”后的语句名改为“Label2.Caption=”VeryGood!请继续！””，三个错误选项的“then”分别改为“Label2.Caption=”正确答案是3，请继续努力。””即可。二、制作智能交互型的课件（2）方法二17方法2的代码编辑窗口二、制作智能交互型的课件方法2的代码编辑窗口二、制作智能交互型的课件184．“重新选择”命令按钮在幻灯片适当的地方插入一个命令按钮，修改其Caption属性为“重新选择”，在编辑窗口中的PrivateSubCommandButton2_Click()

和EndSub语句间插入：

OptionButton1.Value=FalseOptionButton2.Value=FalseOptionButton3.Value=FalseOptionButton4.Value=FalseLabel2.Caption=“”二、制作智能交互型的课件4．“重新选择”命令按钮二、制作智能交互型的课件195．“下一题”命令按钮在幻灯片适当地方插入一个命令按钮，修改其Caption属性为“下一题”，在编辑窗口中的PrivateSubCommandButton3_Click()

和EndSub语句间插入:IfMsgBox(“是否继续”,VbYesNo+VbQuestion,“下一题”)=VbYesThenWithSlideShowWindows(1).ViewGotoSlide2EndWith//2为第2张幻灯片，此语句表示转到第2张幻灯片

Endif二、制作智能交互型的课件5．“下一题”命令按钮二、制作智能交互型的课件20“重新选择”和“下一题”命令按钮代码编辑窗口二、制作智能交互型的课件“重新选择”和“下一题”命令按钮代码编辑窗口二、制作智能交互21如果要根据条件的不同转到不同的幻灯片，可用下面语句：If条件thenWithSlideShowWindows(1).View.GotoSliden//n为第n张幻灯片，转到第n张幻灯片

EndWithEndif二、制作智能交互型的课件如果要根据条件的不同转到不同的幻灯片，可用下面语句：二、制作22说明：条件可以是Caption属性或Value属性，书写方法为：控件名称(在VBA中的名称).属性=(value属性为True或False，Caption属性为具体文本，注意文本要加双引号)，如下面语句：IfOptionButton1.Value=Truethen……Endif表示如果单选框1的Value值为True，那么运行then后的语句，一直到Endif。二、制作智能交互型的课件说明：条件可以是Caption属性或Value属性，书写方法23（二）多选题的制作题目的设计同单选题。答案选项用复选框（CheckBox），其他设置同单选题。“查看答案”命令按钮，因为是多选题，答案有多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条件，比如第1、3选项是正确的，则需要输入如下语句：二、制作智能交互型的课件（二）多选题的制作二、制作智能交互型的课件24IfCheckBox1.Value=TrueAndCheckBox3.Value=TrueThen

给出正确的提示信息同单选题Else

给出错误的提示信息同单选题Endif二、制作智能交互型的课件IfCheckBox1.Value=TrueAndCh25（三）判断题的制作所有的设置与单选题类似，只不过两个答案选项是“√”和“×”，这两个符号可先在Word中插入，然后再复制过来。二、制作智能交互型的课件（三）判断题的制作二、制作智能交互型的课件26（四）填空题的制作点击文本框控件，在幻灯片适当的位置拖拉鼠标得到合适大小的文本框。选中该文本框，右击选择“查看代码”命令，打开代码编辑窗口，点击右上方的下拉按钮，在弹出的下拉列表中选择“LostFocus”。这样当文本输入完成、鼠标离开这个文本框时，就会出现在下面设置好的反馈信息。二、制作智能交互型的课件（四）填空题的制作二、制作智能交互型的课件27在代码编辑窗口中找到:PrivateSubTextBox1_LostFocus()和EndSub语句,插入代码：IfTextBox1.Value=“李白”ThenMsgBox(“不错，你填对了。恭喜您！”,vbOKOnly,“填空题”)ElseMsgBox(“不对吧？再想想，也许您就能想起正确答案呢！”,vbOKOnly,”填空题”)TextBox1.Text=“”EndIf二、制作智能交互型的课件在代码编辑窗口中找到:PrivateSubTextBox28说明：本例中这个填空题的正确答案就是“李白”，其它分别表示答对或答错时课件的反馈信息，制作中可以根据实际自行更改。如果有多个填空题，那么需要将上面代码中的TextBox1替换为TextBox2、TextBox3等，依此类推。二、制作智能交互型的课件说明：本例中这个填空题的正确答案就是“李白”，其它分别表示答29利用控件工具箱，在PowerPoint中制作智能交互的课件以课堂练习题为例介绍，实际上还有很多的用途，在此不再累述。如果需要制作一份交互性的试卷，可以复制相应的代码，然后根据具体问题进行修改。制作完成后，可将PowerPoint保存成PPS格式文件，学生双击此文件即可运行，以避免学生对试题进行编辑。二、制作智能交互型的课件利用控件工具箱，在PowerPoint中制作智能交互的课件以30文本框代码编辑窗口二、制作智能交互型的课件文本框代码编辑窗口二、制作智能交互型的课件31如果课件要求智能反馈，如填空题、选择题或判断题等，可利用控件搭建环境，利用VBA编程，来实现复杂的智能交互。第三节用VBA制作智能交互型的课件如果课件要求智能反馈，如填空题、选择题或判断题等，可利用控件32（一）常用控件的属性设置1．复选框（CheckBox）可以选择多个选项，常用来设计多选题；其属性设置：AutoSize有两个值，True表示根据字的多少调整复选框大小，False表示复选框为固定大小BackColor：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；一、VBA编程基础（一）常用控件的属性设置一、VBA编程基础33Caption：控件的名称，把默认值删除后，再重新输入新名称；Font：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中对字体格式设置；ForeColor：设置字的颜色，设置方法同BackColor；Height：复选框的高度，直接输入数字即可；Width：复选框的宽度，直接输入数字即可；Value：复选框的值，True为选中，相反False则为未选中。一、VBA编程基础Caption：控件的名称，把默认值删除后，再重新输入新名称342．文本框（TextBox）可以输入文本，常用来设计填空题；其AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；TextAlign：设置文本对齐方式。3．命令按钮（CommandButton）用来确定选择或输入，也可设计超级链接等；属性设置同复选框。一、VBA编程基础2．文本框（TextBox）一、VBA编程基础354．单选框（OptionButton）只能选中一个选项，常用来设计单选题或判断题；除Value外，其他同复选框。5．标签（Label）用来显示文字信息。除Value外，其它同复选框一、VBA编程基础4．单选框（OptionButton）一、VBA编程基础366．消息框（MsgBox）常用消息框显示一些交互的信息，如图所示的消息框用下面的语句可实现：

MsgBox(“这是一个例题”,vbYesNo,”示例”)用消息框显示交互信息一、VBA编程基础6．消息框（MsgBox）用消息框显示交互信息一、VBA编程37双击幻灯片中的控件，或用菜单“工具”->“宏”->“Visualbasic编辑器”命令，即可进入VBA编程状态。进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调出该窗口。（二）VBA的编程环境双击幻灯片中的控件，或用菜单“工具”->“宏”->“Vis38二、制作智能交互型的课件以制作单选题、选择题、判断题和填空题为例来介绍智能的课件的制作方法。二、制作智能交互型的课件二、制作智能交互型的课件二、制作智能交互型的课件39（一）单选题的制作1．题目题目的输入可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签,插入后双击该标签启动VBA，修改Caption属性为“5X-15=0的解是：”，再根据需要修改其他属性。单选题的运行界面二、制作智能交互型的课件（一）单选题的制作单选题的运行界面二、制作智能交互型的课件402．答案选项插入一个单选框（第一个单选框），修改其Caption属性为“A3”，其他属性可自行修改。其他的单选项可复制制作好的单选框，然后再分别修改它们的Caption属性为“B5”、“C11”和“D18”。二、制作智能交互型的课件2．答案选项二、制作智能交互型的课件413．“查看答案”命令按钮在此插入一个命令按钮（第一个命令按钮），我们可根据单选框的Value属性的值来判断答案，如正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误，另外还可根据选择正误来给出提示信息，有两种方法。二、制作智能交互型的课件3．“查看答案”命令按钮二、制作智能交互型的课件42（1）方法一用MsgBox()，如果选择正确，显示信息“VeryGood！请继续！”，选择错误则显示“Sorry，你选错了！正确答案是3，请继续努力。”具体操作步骤：双击单选框进入VBA编辑窗口，在编辑窗口中完成以下操作。二、制作智能交互型的课件（1）方法一二、制作智能交互型的课件431）在编辑窗口中找到如下两条语句：PrivateSubOptionButton1_Click()和EndSub语句。然后在上面这两条语句中间插入以下语句：IfOptionButton1.Value=TrueThenex=MsgBox(“VeryGood！请继续努力。”,vbOKOnly)二、制作智能交互型的课件1）在编辑窗口中找到如下两条语句：PrivateSub44方法1的代码编辑窗口二、制作智能交互型的课件方法1的代码编辑窗口二、制作智能交互型的课件452）同理，找到如下三组语句：第一组语句：PrivateSubOptionButton2_Click()和EndSub；第二组语句：PrivateSubOptionButton3_Click()和EndSub；第三组语句：PrivateSubOptionButton4_Click()和EndSub。二、制作智能交互型的课件2）同理，找到如下三组语句：二、制作智能交互型的课件46在这三组的两条语句中间分别插入语句：IfOptionButton2.Value=TrueThenex=MsgBox(“正确答案是3，请继续努力。”,vbOKOnly)IfOptionButton3.Value=TrueThenex=MsgBox(“正确答案是3，请继续努力。”,vbOKOnly)IfOptionButton4.Value=TrueThenex=MsgBox(“正确答案是3，请继续努力。”,vbOKOnly)说明：ex为自定义变量在所有代码的前使用dimex定义变量ex二、制作智能交互型的课件在这三组的两条语句中间分别插入语句：二、制作智能交互型的课件47二、制作智能交互型的课件（2）方法二在幻灯片合适的地方插入一个标签（第二个标签），修改其Caption属性为空，其他设置同方法一，只要把正确选项中的“then”后的语句名改为“Label2.Caption=”VeryGood!请继续！””，三个错误选项的“then”分别改为“Label2.Caption=”正确答案是3，请继续努力。””即可。二、制作智能交互型的课件（2）方法二48方法2的代码编辑窗口二、制作智能交互型的课件方法2的代码编辑窗口二、制作智能交互型的课件494．“重新选择”命令按钮在幻灯片适当的地方插入一个命令按钮，修改其Caption属性为“重新选择”，在编辑窗口中的PrivateSubCommandButton2_Click()

和EndSub语句间插入：

OptionButton1.Value=FalseOptionButton2.Value=FalseOptionButton3.Value=FalseOptionButton4.Value=FalseLabel2.Caption=“”二、制作智能交互型的课件4．“重新选择”命令按钮二、制作智能交互型的课件505．“下一题”命令按钮在幻灯片适当地方插入一个命令按钮，修改其Caption属性为“下一题”，在编辑窗口中的PrivateSubCommandButton3_Click()

和EndSub语句间插入:IfMsgBox(“是否继续”,VbYesNo+VbQuestion,“下一题”)=VbYesThenWithSlideShowWindows(1).ViewGotoSlide2EndWith//2为第2张幻灯片，此语句表示转到第2张幻灯片

Endif二、制作智能交互型的课件5．“下一题”命令按钮二、制作智能交互型的课件51“重新选择”和“下一题”命令按钮代码编辑窗口二、制作智能交互型的课件“重新选择”和“下一题”命令按钮代码编辑窗口二、制作智能交互52如果要根据条件的不同转到不同的幻灯片，可用下面语句：If条件thenWithSlideShowWindows(1).View.GotoSliden//n为第n张幻灯片，转到第n张幻灯片

EndWithEndif二、制作智能交互型的课件如果要根据条件的不同转到不同的幻灯片，可用下面语句：二、制作53说明：条件可以是Caption属性或Value属性，书写方法为：控件名称(在VBA中的名称).属性=(value属性为True或False，Caption属性为具体文本，注意文本要加双引号)，如下面语句：IfOptionButton1.Value=Truethen……Endif表示如果单选框1的Value值为True，那么运行then后的语句，一直到Endif。二、制作智能交互型的课件说明：条件可以是Caption属性或Value属性，书写方法54（二）多选题的制作题目的设计同单选题。答案选项用复选框（CheckBox），其他设置同单选题。“查看答案”命令按钮，因为是多选题，答案有多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条件，比如第1、3选项是正确的，则需要输入如下语句：二、制作智能交互型的课件（二）多选题的制作二、制作智能交互型的课件55IfCheckBox1.Value=T