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

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,2015/5/26,#,如果课件要求智能反馈，如填空题、选择题或判断题等，可利用控件搭建环境，利用,VBA,编程，来实现复杂的智能交互。,第三节 用,VBA,制作智能交互型的课件,（一）,常,常用控,件,件的属,性,性设置,1复选,框,框（CheckBox）,可以选,择,择多个,选,选项，,常,常用来,设,设计多,选,选题；,其,其属性,设,设置：,AutoSize有两个,值,值，True表示根,据,据字的,多,多少调,整,整复选,框,框大小,，,，False表示复,选,选框为,固,固定大,小,小,BackColor：设置,复,复选框,的,的背景,颜,颜色，,单,单击该,属,属性框,出,出现下,拉,拉按钮,，,，选择,“,“调色,板,板”选,项,项卡后,选,选择颜,色,色；,一、VBA编程基,础,础,Caption：控件,的,的名称,，,，把默,认,认值删,除,除后，,再,再重新,输,输入新,名,名称；,Font：设置,字,字体、,字,字号及,字,字形，,单,单击该,属,属性框,出,出现按,钮,钮，单,击,击该按,钮,钮出现,字,字体对,话,话框，,再,再在对,话,话框中,对,对字体,格,格式设,置,置；,ForeColor：设置,字,字的颜,色,色，设,置,置方法,同,同BackColor；,Height：复选,框,框的高,度,度，直,接,接输入,数,数字即,可,可；,Width：复选,框,框的宽,度,度，直,接,接输入,数,数字即,可,可；,Value：复选,框,框的值,，,，True为选中,，,，相反False则为未,选,选中。,一、VBA编程基,础,础,2文本,框,框（TextBox）,可以输,入,入文本,，,，常用,来,来设计,填,填空题,；,；其AutoSize、BackColor、Font、ForeColor、Height、Width等属性,的,的设置,方,方法同,复,复选框,；,；,Value：文本,框,框的值,，,，用来,保,保存输,入,入的文,本,本；,TextAlign：设置,文,文本对,齐,齐方式,。,。,3命令,按,按钮（CommandButton）,用来确,定,定选择,或,或输入,，,，也可,设,设计超,级,级链接,等,等；属,性,性设置,同,同复选,框,框。,一、VBA编程基,础,础,4单选,框,框（OptionButton）,只能选,中,中一个,选,选项，,常,常用来,设,设计单,选,选题或,判,判断题,；,；除Value外，其,他,他同复,选,选框。,5标签,（,（Label）,用来显,示,示文字,信,信息。,除,除Value外，其,它,它同复,选,选框,一、VBA编程基,础,础,6消息,框,框（MsgBox）,常用消,息,息框显,示,示一些,交,交互的,信,信息，,如,如图所,示,示的消,息,息框用,下,下面的,语,语句可,实,实现：,MsgBox,(,(“这是一,个,个例题,”,”,vbYesNo,”,”示例”),用消息,框,框显示,交,交互信,息,息,一、VBA编程基,础,础,双击幻,灯,灯片中,的,的控件,，,，或用,菜,菜单,“,“工具,”,”-“宏”-“Visualbasic编辑器,”,”命令,，,，即可,进,进入VBA编程状,态,态。进,入,入VBA后，需,要,要在“,属,属性”,窗,窗口中,对,对控件,的,的属性,进,进行设,置,置。如,果,果没有,出,出现“,属,属性”,窗,窗口，,按,按F4键即可,调,调出该,窗,窗口。,（二）VBA的编程,环,环境,二、制,作,作智能,交,交互型,的,的课件,以制作,单,单选题,、,、选择,题,题、判,断,断题和,填,填空题,为,为例来,介,介绍智,能,能的课,件,件的制,作,作方法,。,。,二、制,作,作智能,交,交互型,的,的课件,（一）,单,单选题,的,的制作,1题目,题目的,输,输入可,用,用文本,框,框，也,可,可用标,签,签。,如果用,文,文本框,，,，直接,输,输入文,本,本即可,。,。如果,用,用标签,插入后,双,双击该,标,标签启,动,动VBA，修改Caption属性为,“,“5X-15=0的解是,：,：”，,再,再根据,需,需要修,改,改其他,属,属性。,单选题,的,的运行,界,界面,二、制,作,作智能,交,交互型,的,的课件,2答案,选,选项,插入一,个,个单选,框,框（第,一,一个单,选,选框）,，,，修改,其,其Caption属性为,“,“A3”，其他,属,属性可,自,自行修,改,改。其,他,他的单,选,选项可,复,复制制,作,作好的,单,单选框,，,，然后,再,再分别,修,修改它,们,们的Caption属性为,“,“B5”、“C11”和“D18”。,二、制,作,作智能,交,交互型,的,的课件,3“查,看,看答案,”,”命令,按,按钮,在此插,入,入一个,命,命令按,钮,钮（第,一,一个命,令,令按钮,）,），我,们,们可根,据,据单选,框,框的Value属性的,值,值来判,断,断答案,，,，如正,确,确选项,（,（单选,框,框）的Value的值为True，则为,该,该题选,择,择正确,，,，否则,为,为选择,错,错误，,另,另外还,可,可根据,选,选择正,误,误来给,出,出提示,信,信息，,有,有两种,方,方法。,二、制,作,作智能,交,交互型,的,的课件,（1）方法,一,一,用MsgBox,(,()，如果,选,选择正,确,确，显,示,示信息,“,“Very Good！请继,续,续！”,，,，选择,错,错误则,显,显示“Sorry，你选,错,错了！,正,正确答,案,案是3，请继,续,续努力,。,。”具,体,体操作,步,步骤：,双,双击单,选,选框进,入,入VBA编辑窗,口,口，在,编,编辑窗,口,口中完,成,成以下,操,操作。,二、制,作,作智能,交,交互型,的,的课件,1）在编,辑,辑窗口,中,中找到,如,如下两,条,条语句,：,：PrivateSubOptionButton1_Click(,),)和EndSub语句。,然后在,上,上面这,两,两条语,句,句中间,插,插入以,下,下语句,：,：,IfOptionButton1.Value=TrueThenex,=,=MsgBox(“Very Good！请继,续,续努力,。,。”,vbOKOnly),二、制,作,作智能,交,交互型,的,的课件,方法1的代码,编,编辑窗,口,口,二、制,作,作智能,交,交互型,的,的课件,2）同理,，,，找到,如,如下三,组,组语句,：,：,第一组,语,语句：Private SubOptionButton2_Click()和EndSub；,第二组,语,语句：Private SubOptionButton3_Click()和EndSub；,第三组,语,语句：Private SubOptionButton4_Click()和EndSub。,二、制,作,作智能,交,交互型,的,的课件,在这三,组,组的两,条,条语句,中,中间分,别,别插入,语,语句：,IfOptionButton2.Value=TrueThenex=MsgBox,(,(“正确答,案,案是3，请继,续,续努力,。,。”,vbOKOnly),IfOptionButton3.Value=TrueThenex=MsgBox,(,(“正确答,案,案是3，请继,续,续努力,。,。”,vbOKOnly),IfOptionButton4.Value=TrueThenex=MsgBox,(,(“正确答,案,案是3，请继,续,续努力,。,。”,vbOKOnly),说明：ex为自定,义,义变量,在所有,代,代码的,前,前使用dimex定义变,量,量ex,二、制,作,作智能,交,交互型,的,的课件,二、制,作,作智能,交,交互型,的,的课件,（2）方法,二,二,在幻灯,片,片合适,的,的地方,插,插入一,个,个标签,（,（第二,个,个标签,）,），修,改,改其Caption属性为,空,空，其,他,他设置,同,同方法,一,一，只,要,要把正,确,确选项,中,中的“then”后的语,句,句名改,为,为“Label2,.,.Caption=,”,”VeryGood!请继续,！,！”,，,，三个,错,错误选,项,项的“then”分别改,为,为“Label2,.,.Caption=,”,”正确答,案,案是3，请继,续,续努力,。,。”,即,即可。,方法2的代码,编,编辑窗,口,口,二、制,作,作智能,交,交互型,的,的课件,4“重,新,新选择,”,”命令,按,按钮,在幻灯,片,片适当,的,的地方,插,插入一,个,个命令,按,按钮，,修,修改其Caption属性为,“,“重新,选,选择”,，,，在编,辑,辑窗口,中,中的Private SubCommandButton2_Click(,),),和EndSub语句间,插,插入：,OptionButton1.Value=False,OptionButton2.Value=False,OptionButton3.Value=False,OptionButton4.Value=False,Label2,.,.Caption,=,=“”,二、制,作,作智能,交,交互型,的,的课件,5“下,一,一题”,命,命令按,钮,钮,在幻灯,片,片适当,地,地方插,入,入一个,命,命令按,钮,钮，修,改,改其Caption属性为,“,“下一,题,题”，,在,在编辑,窗,窗口中,的,的Private SubCommandButton3_Click(,),),和EndSub语句间,插,插入:,IfMsgBox(“是否继,续,续”,VbYesNo,+,+VbQuestion,“,“下一题,”,”)=VbYesThen,With SlideShowWindows,(,(1),.,.View,GotoSlide2,EndWith,/2为第2张幻灯,片,片，此,语,语句表,示,示转到,第,第2张幻灯,片,片,Endif,二、制,作,作智能,交,交互型,的,的课件,“重新选,择,择”和“下一题”命令按,钮,钮代码,编,编辑窗,口,口,二、制,作,作智能,交,交互型,的,的课件,如果要,根,根据条,件,件的不,同,同转到,不,不同的,幻,幻灯片,，,，可用,下,下面语,句,句：,If条件then,With SlideShowWindows,(,(1),.,.View,.GotoSlide n,/n为第n张幻灯,片,片，转,到,到第n张幻灯,片,片,EndWith,Endif,二、制,作,作智能,交,交互型,的,的课件,说明：,条,条件可,以,以是Caption属性或Value属性，,书,书写方,法,法为：,控,控件名,称,称(在VBA中的名,称,称).属性=(value属性为True或False，Caption属性为,具,具体文,本,本，注,意,意文本,要,要加双,引,引号)，如下,面,面语句,：,：IfOptionButton1.Value=Truethen,Endif,表示如,果,果单选,框,框1的Value值为True，那么,运,运行then后的语,句,句，一,直,直到Endif。,二、制,作,作智能,交,交互型,的,的课件,（二）,多,多选题,的,的制作,题目的,设,设计同,单,单选题,。,。,答案选,项,项用复,选,选框（CheckBox），其,他,他设置,同,同单选,题,题。,“查看,答,答案”,命,命令按,钮,钮，因,为,为是多,选,选题，,答,答案有,多,多个，,所,所以要,书,书写多,个,个条件,，,，条件,之,之间用and连接，,表,表示同,时,时满足,这,这几个,条,条件，,比,比如第1、3选项是,正,正确的,，,，则需,要,要输入,如,如下语,句,句：,二、制,作,作智能,交,交互型,的,的课件,IfCheckBox1,.,.Value,=,=TrueAndCheckBo