用VBA制作智能交互型的培训课件-.pptx

Click to edit Master title style,Click to edit Master text styles,Second level,Third level,Fourth level,Fifth level,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,假如课件要求智能反馈，如填空题、选择题或判断题等，可利用控件搭建环境，利用,VBA,编程，来实现复杂智能交互。,第三节 用VBA制作智能交互型课件,用VBA制作智能交互型的培训课件,第1页,（一）惯用控件属性设置,1,复选框（,CheckBox,）,能够选择多个选项，惯用来设计多项选择题；其属性设置：,AutoSize,有两个值，,True,表示依据字多少调整复选框大小，,False,表示复选框为固定大小,BackColor,：设置复选框背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；,一、VBA编程基础,用VBA制作智能交互型的培训课件,第2页,Caption,：控件名称，把默认值删除后，再重新输入新名称；,Font,：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中对字体格式设置；,ForeColor,：设置字颜色，设置方法同,BackColor,；,Height,：复选框高度，直接输入数字即可；,Width,：复选框宽度，直接输入数字即可；,Value,：复选框值，,True,为选中，相反,False,则为未选中。,一、VBA编程基础,用VBA制作智能交互型的培训课件,第3页,2,文本框（,TextBox,）,能够输入文本，惯用来设计填空题；其,AutoSize,、,BackColor,、,Font,、,ForeColor,、,Height,、,Width,等属性设置方法同复选框；,Value,：文本框值，用来保留输入文本；,TextAlign,：设置文本对齐方式。,3,命令按钮（,CommandButton,）,用来确定选择或输入，也可设计超级链接等；属性设置同复选框。,一、VBA编程基础,用VBA制作智能交互型的培训课件,第4页,4,单项选择框（,OptionButton,）,只能选中一个选项，惯用来设计单项选择题或判断题；除,Value,外，其它同复选框。,5,标签（,Label,）,用来显示文字信息。除,Value,外，其它同复选框,一、VBA编程基础,用VBA制作智能交互型的培训课件,第5页,6,消息框（,MsgBox,）,惯用消息框显示一些交互信息，如图所表示消息框用下面语句可实现：,MsgBox(“,这是一个例题”,vbYesNo,”,示例”,),用消息框显示交互信息,一、VBA编程基础,用VBA制作智能交互型的培训课件,第6页,双击幻灯片中控件，或用菜单“工具”,-“,宏”,-“Visual basic,编辑器”命令，即可进入,VBA,编程状态。进入,VBA,后，需要在“属性”窗口中对控件属性进行设置。假如没有出现“属性”窗口，按,F4,键即可调出该窗口。,（二）VBA编程环境,用VBA制作智能交互型的培训课件,第7页,二、制作智能交互型课件,以制作单项选择题、选择题、判断题和填空题为例来介绍智能课件制作方法。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第8页,（一）单项选择题制作,1,题目,题目标输入可用文本框，也可用标签。,假如用文本框直接输入文本即可。假如用标签,插入后双击该标签开启,VBA,，修改,Caption,属性为“,5X-15=0,解是：”，再依据需要修改其它属性。,单项选择题运行界面,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第9页,2,答案选项,插入一个单项选择框（第一个单项选择框），修改其,Caption,属性为“,A 3”,，其它属性可自行修改。其它单项选择项可复制制作好单项选择框，然后再分别修改它们,Caption,属性为“,B 5”,、“,C 11”,和“,D 18”,。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第10页,3,“查看答案”命令按钮,在此插入一个命令按钮（第一个命令按钮），我们可依据单项选择框,Value,属性值来判断答案，如正确选项（单项选择框）,Value,值为,True,，则为该题选择正确，不然为选择错误，另外还可依据选择正误来给出提醒信息，有两种方法。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第11页,（,1,）方法一,用,MsgBox(),，假如选择正确，显示信息“,Very Good,！请继续！”，选择错误则显示“,Sorry,，你选错了！正确答案是,3,，请继续努力。”详细操作步骤：双击单项选择框进入,VBA,编辑窗口，在编辑窗口中完成以下操作。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第12页,1,）在编辑窗口中找到以下两条语句：,Private Sub OptionButton1_Click(),和,End Sub,语句。,然后在上面这两条语句中间插入以下语句：,If OptionButton1.Value=True Then ex=MsgBox(“Very Good,！请继续努力。”,vbOKOnly),二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第13页,方法,1,代码编辑窗口,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第14页,2,）同理，找到以下三组语句：,第一组语句：,Private Sub OptionButton2_Click(),和,End Sub,；,第二组语句：,Private Sub OptionButton3_Click(),和,End Sub,；,第三组语句：,Private Sub OptionButton4_Click(),和,End Sub,。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第15页,在这三组两条语句中间分别插入语句：,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,定义变量,ex,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第16页,二、制作智能交互型课件,（2）方法二,在幻灯片适当地方插入一个标签（第二个标签），修改其Caption属性为空，其它设置同方法一，只要把正确选项中“then”后语句名改为“Label2.Caption=”Very Good!请继续！”，三个错误选项“then”分别改为“Label2.Caption=”正确答案是3，请继续努力。”即可。,用VBA制作智能交互型的培训课件,第17页,方法,2,代码编辑窗口,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第18页,4,“重新选择”命令按钮,在幻灯片适当地方插入一个命令按钮，修改其,Caption,属性为“重新选择”，在编辑窗口中,Private Sub CommandButton2_Click(),和,End Sub,语句间插入：,OptionButton1.Value=False,OptionButton2.Value=False,OptionButton3.Value=False,OptionButton4.Value=False,Label2.Caption=“”,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第19页,5,“下一题”命令按钮,在幻灯片适当地方插入一个命令按钮，修改其,Caption,属性为“下一题”，在编辑窗口中,Private Sub CommandButton3_Click(),和,End Sub,语句间插入,:,If MsgBox(“,是否继续”,VbYesNo+VbQuestion,“,下一题”,)=VbYes Then,With SlideShowWindows(1).View,GotoSlide 2,End With,/2,为第,2,张幻灯片，此语句表示转到第,2,张幻灯片,End if,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第20页,“,重新选择,”,和,“,下一题,”,命令按钮代码编辑窗口,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第21页,假如要依据条件不一样转到不一样幻灯片，可用下面语句：,If,条件,then,With SlideShowWindows(1).View,.GotoSlide n,/n,为第,n,张幻灯片，转到第,n,张幻灯片,End With,End if,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第22页,说明：条件能够是,Caption,属性或,Value,属性，书写方法为：控件名称,(,在,VBA,中名称,).,属性,=(value,属性为,True,或,False,，,Caption,属性为详细文本，注意文本要加双引号,),，以下面语句：,If OptionButton1.Value=True then,End if,表示假如单项选择框,1,Value,值为,True,，那么运行,then,后语句，一直到,End if,。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第23页,（二）多项选择题制作,题目标设计同单项选择题。,答案选项用复选框（,CheckBox,），其它设置同单项选择题。,“查看答案”命令按钮，因为是多项选择题，答案有多个，所以要书写多个条件，条件之间用,and,连接，表示同时满足这几个条件，比如第,1,、,3,选项是正确，则需要输入以下语句：,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第24页,If CheckBox1.Value=True And CheckBox3.Value=True Then,给出正确提醒信息同单项选择题,Else,给犯错误提醒信息同单项选择题,End if,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第25页,（三）判断题制作,全部设置与单项选择题类似，只不过两个答案选项是“”和“,”,，这两个符号可先在,Word,中插入，然后再复制过来。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第26页,（四）填空题制作,点击文本框控件，在幻灯片适当位置拖拉鼠标得到适当大小文本框。选中该文本框，右击选择“查看代码”命令，打开代码编辑窗口，点击右上方下拉按钮，在弹出下拉列表中选择“,LostFocus”,。,这么当文本输入完成、鼠标离开这个文本框时，就会出现在下面设置好反馈信息。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第27页,在代码编辑窗口中找到,:Private Sub TextBox1_LostFocus(),和,End Sub,语句,插入代码：,If TextBox1.Value=“,李白”,Then,MsgBox(“,不错，你填对了。恭喜您！”,vbOKOnly,“,填空题”,),Else,MsgBox(“,不对吧？再想想，可能您就能想起正确答案呢！”,vbOKOnly,”,填空题”,),TextBox1.Text=“”,End If,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第28页,说明：本例中这个填空题正确答案就是“李白”，其它分别表示答对或答错时课件反馈信息，制作中能够依据实际自行更改。,假如有多个填空题，那么需要将上面代码中,TextBox1,替换为,TextBox2,、,TextBox3,等，依这类推。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第29页,利用控件工具箱，在,PowerPoint,中制作智能交互课件以课堂练习题为例介绍，实际上还有很多用途，在此不再累述。,假如需要制作一份交互性试卷，能够复制对应代码，然后依据详细问题进行修改。,制作完成后，可将,PowerPoint,保留成,PPS,格式文件，学生双击此文件即可运行，以防止学生对试题进行编辑。,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第30页,文本框代码编辑窗口,二、制作智能交互型课件,用VBA制作智能交互型的培训课件,第31页,