用VBA编程实现PowerPoint课件的智能交互.pdfVIP

74 黔东南民族师范高等专科学校学报 2004年12月 字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中设置；Forecolor：设置字的颜色，设置方法同 存输入的文本．Tex出f；Il：设置文本对齐方式． 这里强调说明消息框MsgBox的功能，作为vBA的一个内部函数，经常要用消息框显示一些交互的信息如图3． 图3所示的消息框用下面的语句可实现： M啦瞰(“这是消息框”，vbokcancel，“例子”) 2使用vBA壤程实现交互功能 这里仅以最常见的练习题的制作来说明． ‘、”’ 2．1单项选择题的制作 1)题目的设计．题目可以用文本框或标签制作．用文本框只要直接输入文本即可；我们以用标签制作为例说明．插入 标签后，右击鼠标，选择属性，修改ca砸on属性为题目，例如写入题目：“sin90。的值是”；也可以右击鼠标，选择标签对象， 编辑，输入题目即可，再根据需要修改其他属性(如颜色等)． 好和标签的一致，这样有整体性． 选择错误，根据选择正误用消息框给出信息：如果选择正确，显示信息“选择正确!请继续I，，错误则显示“选择错误!正 确答案是l，加油!”．操作步骤：双击单选框进入vBA，在编辑窗口中完成以下操作． sub End a．在编辑窗口中找到如下两条语句：蹦vateOpdoIIBuftonlclick() sllb然后在这两条语句中间插人以下 语句：Ⅱ0叫oIlButtonl．value=Tn】以h肌ex=M89Box(“选择正确!请继续l’，，Vbokonly) Sllb End b．同理，找到如下两条语句：Private0pdoIlBunon2click() SlIb在这两条语句中间插入语句：Ⅱ opdonBunoIl2．value=n∞1knex=MBgBox(“选择错误!正确答案是l，加油!”，VbokoIlly) End c．找到如下两条语句hivatc Click() S曲opdoIlBu№n3 value=7r11lenen ex=MsgBox(“选择错误!正确答案是1，加油!”，Vbokonly) Priv舭SIlbc伽m衄dBunodclick()和EndsIlb语句间插入：optioIlBut啪1．Value=蹦∞ sIlbco口啪dButtoIllclick()和Endsub语句间插入：If ca嘶on属性为“下一题”；双击进入vBA，在编辑窗口中的Privale 1knWitll 2EndWitII Ms{rBox(“是否继续”，vhYes№+vbQue8tion，“下一题”)=vbYe8 (2为第2张幻灯片，此语句表示转到第2张幻灯片)Endif．通过这个按钮，可以继续作下面的题目，也通过可以修改 G0toSlide2的数字，转到其他幻灯片上． 2．2判断题的制作 所有的设置与单选题类似，不过是将单选框的属性改为“√”和“×”而已． 2．3多项选择题的制作 多项选择题的制作和单项选择题的制作类似，在答案选择按钮使用控件箱中的复选框，由于答案有多个，所以要书 写多个条件，条件之间用卸d连接，表示同时满足这几个条件，例如第二、三的选项是正确的，则需要输入如下语句：If cllcckBo】【2．value=7I．meA丑dCheckBox3．value=’Ihenen给出正确的提示信息(同单选题)else给出错误的提示信息(同 if． 单选题)end 2．4填夺题的制作 本”ulen给出正确的提示信息(同单选题)elsc给出错误的提示信息(同单选题)endif由于文本是特殊的函数值，所以 正确的文本一定要用半角双引号括起来．要重新填空，可以设置[重新填空]命令按钮；然后进行如下语句的设置就可以 了：Pr