积木”原理突破非it专业教师 用制作多媒体交互课件的技术瓶颈.doc

1、借助VBA和“搭积木”原理突破非IT专业教师用PPT制作多媒体交互课件的技术瓶颈广州市番禺区新造中学邓文华摘要：随着计算机和网络技术的普及，用多媒体课件辅助课堂教学已成为教学过程中不可缺少的重要手段，影响和改变着传统的教学观念与教学模式，成为信息时代教育现代化的发展趋势。但对于一般中小学校而言， 98%以上的非IT教师都对多媒体课件制作工具不熟悉，对制作出专业的多媒体交互课件力不从心。技术不到位成为制约非IT专业教师制作多媒体交互课件的瓶颈。本文拟就如何“借助VBA和搭积木原理突破非IT专业教师用PPT制作多媒体交互课件的技术瓶颈”提出一个发展思路及可行模式。关键词：PPT交互性VBA“搭积木

2、”突破随着计算机和网络技术的普及，用多媒体课件辅助课堂教学已成为教学过程中不可缺少的重要手段，影响和改变着传统的教学观念与教学模式，成为信息时代教育现代化的发展趋势。但是，对于一般中小学校而言，全校教师中除了为数不多的几个专业计算机教师，98%以上的教师都是非计算机专业的教师，对多媒体课件制作工具不熟悉。要这些教师制作出专业的多媒体交互课件确实是力不从心，技术不到位成为制约非IT专业教师制作多媒体交互课件的瓶颈。虽然，对于比较复杂，技术难度要求比较高的多媒体课件制作工具，非IT专业教师比较难于操作，但利用Powerpoint应用程序制作课件在广大教师队伍中应该说100%的教师都用过，甚至经常制

3、作课件用来上课，对文字、图片、视频等媒体的插入、编排，以及幻灯片的基本操作一般都熟悉。但利用Powerpoint做出来的课件由于缺少“模块化、交互性”，就象一盘散沙，没有严格的、科学的组织，页面之间的转换关系不明确，导致授课的时候很容易出错，而且不能即时反馈，难以达到及时评估教学效果的作用。那么，如何解决Powerpoint 缺乏“模块化、交互性”的问题，让非IT专业教师也就可以利用PPT制作多媒体交互课件，从而突破技术不过关的瓶颈，大大推动多媒体交互课件辅助课堂教学的进程呢。本文拟就按非IT专业教师制作多媒体交互课件的“现状”“发展”“突破”三个阶段来进行阐述：一、现状（PPT使用情况及交互

4、性拓展）目前，中小学教学中使用的PPT课件多是用于课堂教学的演示，供学生练习和测试用的课件比较少。但在教学活动中学生仅产生接受反应是不够的，还必须经由提问或通过解决实际问题，使学生真正理解所学内容，产生构成反应。这要求学生作一些练习，且为了解教学目标的实现程度，还要求对学生作一些测试，以便通过评价及时发现错误并予以纠正。所以，练习和测试在教学活动中占有很重要的地位。但在传统教学中，要将诊断评价的结果及时告诉学生即及时反馈是很难做到的，这是由PowerPoint本身的功能和教师及学生对其功能的了解程度共同决定的。由于广大教师对Powerpoint都比较熟悉，基本功能不用介绍，下面只从从如何能够体

5、现课件的“交互性”入手，以PowerPoint 2003版本为例，谈谈与课件“交互性”有关的一些操作。主要对母版、触发器、动作路径的运用作一个简要的说明,它们对制作交互式课件很有作用 。（一）PPT的交互性1. 幻灯片母版   要使我们的演示文稿界面风格统一、美观又有所变化可以用设计模板。但如果想在整个课件每一页都统一显示某个“按钮”或“图片”等信息，则需要在“幻灯片母版”上进行设置。PowerPoint 2003版进入 幻灯片母版后，可以对母版进行编辑。幻灯片母版通常设计一些对整个课件中每一个幻灯片都需要的文字信息、命令按钮、幻灯片背景图片、背景颜色等。

6、0;      2. 触发器的设置     触发器同样是2003及以上版本的一个新增功能。它存在于对象自定义动画的“计时”选项中，在放映视图中，只有当鼠标单击触发对象时，才开始播放该对象。在播放幻灯片时，通过“点击鼠标”来呈现对象的方法不能很好地控制“对象”出现的顺序，所以我们可以用“触发器”这个功能开发某个对象的呈现过程。利用“触发器”可以制作交互性强的幻灯片，如制作：选择题、判断题，弹出式菜单等。         3. 路径动画 对

7、象动画除了分为进入、强调、退出等三种传统自定义动画方式外，在PowerPoint2003版中还新增了“路径动画”。动作路径是一种不可见的轨迹，我们可以将幻灯片上的图片、文本行或形状等项目放在动作路径上，使它们沿着动作路径运动。例如，我们可以使用系统提供的各种预设路径（如弹簧形、心跳形），或我们自己手绘路径，将文本或图形对象从幻灯片上的一个位置移动到另一个位置；我们还可以对路径进行编辑和修改，以符合我们的需要。除了以上元素以外，我们还经常看到高手做的多媒体课件中含有许多的按钮、文本框、选项框等之类的工具，使用这些工具会令课件更具有可操作性、交互性等特点。那么，在Powerpoint做课件时也能做

8、到这样吗？能，Powerpoint同样提供了一组这样的工具，那叫ActiveX控件。所谓ActiveX控件就是一种图形对象，可以使用它在Powerpoint演示文稿中控制一组预定义的事件（或执行一段程序代码）。在进行学习VBA编程之前，我们还有必要先理解这些控件的作用及其使用方法。（二）Powerpoint控件显示控件工具箱：在Powerpoint中选择菜单“视图-工具栏-控件工具箱”，则“控件工具箱”就会出现在powerpoint工作区内。 如图：在制作课件过程中，我们会经常用到的有下面几种控件： 标签（Label）：用于表现静态文字信息，如显示选择题、判断题的题目等； 复选框（CheckB

9、ox）：是一个选择控件，可用于多项选择题的制作； 文本框(TextBox)：可以输入文本，用来制作填空题； 命令按钮(CommandButton)：可用于制作幻灯片上的按钮，还可通过按钮来改变幻灯片的播放顺序,设计超级链接； 选项按钮(OptionButton):通常一组使用，只能选中其中一个，用来制作单项选择题或判断题。这是控件的属性，当设置完一个控件后，点击该按钮，就显示该控件的属性窗口。    查看代码，当鼠标选中某一个控件时再点击该按钮，即可查看该控件的代码窗口，或在代码窗口中输入一段程序代码。    列表框(ListBox)

10、      组合框(ComboBox)       开关按钮(ToggleButton)数字调节(SpinButton)      滚动条（ScrollBar）  图像(Image)   除了上面几个常用控件外，Windows系统还有许多控件没有列出，在“控件工具箱”最右边那个按钮叫“其它控件”。点击这个按钮，系统就会出现下拉列表，弹出更多的控件让你选择。对于“控件”，只要设置了控件的属性，该控件本身就确定

11、了个性与特点，但如果不给它做任何东西，这个控件就好象形同摆设，例如，在幻灯片上设置一个“命令按钮”，不管你设置了它的颜色、字体、大小等属性，在幻灯片播放时任你如何用鼠标点击，它都是没有任何动作，不给你干活。要想让控件为我们干活，就得给它干活的东西给控件设置一段程序代码。你给它编写什么样的代码，它就给你干什么样的活。那么，那些代码要放在哪里呢？这就涉及到“控件的事件与方法”以及VBA编程了。二、发展（VBA学习要求及编程简介）Powerpoint虽然简单易学，但交互性差，在对多媒体技术要求不断提高的今天，已经远远不能满足我们做课件的需要。那么，如何立足于大家都熟悉的PPT制作平台，弥补“交互性”

12、的不足呢？借助VBA编程是一个可行的方法。所以，在接下来的日子里，非IT专业教师的发展方向就是要尽量掌握VBA编程的基本知识。但在介绍VBA之前，我们还得承上所述，先来了解“控件的事件与方法”：（一）控件的事件与方法什么是“事件”？一个事件就是用户在控件对象上所做的一个动作。当系统响应用户的某些动作时，会自动触发事件代码。例如，用户在控件对象上做出单击动作时，系统自动执行为Click事件编写的程序代码。当在幻灯片中设置了一个控件，如“命令按钮”，再用鼠标双击该控件，就会自动进入到VBA代码编辑器，控件默认的事件一般都为控件的Click（）事件 ，Click(点击的意思），我们可以通过代码窗口上

13、面的两个下拉列表选择要编程的对象和该对象的响应事件。如下图：    只有通过输入Click事件的代码程序，这些控件才能发挥其强大功能,如果没有给这些控件输入Click事件代码，这个控件只是一个摆设，没有什么作用了。 什么是方法？方法，就是控件对象进行的操作。例如：某对象的显示（Show）方法、隐藏（Hide)方法、清除内容（Clear)方法 、复制(Copy)方法，等。上面的例子就是把用户窗体（Userform1)执行“显示(Show) ”操作。“方法”与“事件”有相似之处，都是为了完成某个任务，但同一个事件可完成不同任务，取决于您所编的代码是怎样的，而

14、方法则是固定的，任何时候调用都是完成同一个任务，所以其中的代码也不需要我们编了，系统已为我们编好（我们也看不见），只需在必要的时候调用即可。在VBA编程中，还经常会用到Powerpoint应用程序的对象。这些对象是Office在 应用程序中提供给用户访问或进行二次开发使用。下面列出一些常用的应用程序对象。如：DocumentWindow对象、SlideShowWindow对象、Slide对象 、Shape对象在课件制作过程中会经常用到。（二）对象1.DocumentWindow对象该对象代表文档窗口。使用“Windows(index) ”语法可返回DocumentWindow对象。 (1)Ac

15、tivePane属性：返回Pane对象，代表文档窗口中的活动窗格。 (2)Panes属性：返回Panes集合，代表文档窗口中的所有窗格。 (3)ViewType属性：返回指定的文档窗口内的视图类型。2.SlideShowWindow对象该对象代表幻灯片放映窗口。IsFullScreen属性：用于设置是否全屏显示幻灯片放映窗口。3.Slide对象该对象代表幻灯片。 (1)SlideID属性：返回幻灯片的唯一标识符。 (2)SlideIndex属性：返回幻灯片在Slides集合中的索引号。4.Shape 对象该对象代表绘图层中的对象，例如自选图形、任意多边形、OLE 对象或图片。 

16、60;  注意：共有三个代表形状的对象：Shapes 集合，代表文档中的所有形状；ShapeRange 集合，代表文档中指定的部分形状（例如，ShapeRange 对象可以代表文档中的第一个和第四个形状，或代表文档中所有选定的形状）；Shape 对象，代表文档中的单个形状。如果要同时使用多个形状或集合中的形状，请使用 ShapeRange 集合。在以上内容当中已经多次提到“VBA编程”， 究竟什么是VBA？（三）VBA及其编程简介VBA是Visual Basic for Application的简写，是微软在其开发的应用程序中共享的通用自动化语言，属于内置编程语言。它以VB

17、（Visual Basic）语言为基础，是VB的子集，但不能像VB一样生成可执行程序。VBA经过修改并运行在Microsoft Office的应用程序，它可以使常用的应用实现自动化,可以创建自定义的解决方案，功能强大，面向对象，可极大地增加Office系列软件的交互性。但对于非IT专业的教师来说，这些专业术语和编程技术，他们不熟悉也很难真正理解。所以，笔者认为没有必要作详细解释，采取“知其然，不知其所以然”的态度也未尝不可。那些深奥的程序代码，让专业人士根据教学的需要预告设计好，以“程序段”的形式分门别类保存好，象一块一块的“积木”构件那样，让非IT专业的教师能够以“搭积木”的方法，根据自己的

18、实际需要自行选用就能基本解决日常教学多媒体交互课件的制作和使用。就象我们在制作网页时，往往会通过直接到素材网站上下载别人已经设计好的程序代码来为网页插入某种特效那样，并不需要每次使用特效时都亲自进行程序编写，只是下载现成的程序代码稍作修改就能达到效果。所以，在这里对编程只作系统上的简单介绍。要想制作的课件具有智能化、交互性强的特点，必须为课件编写一些有用的程序代码，例如，让学生做练习题、判断题等，学生做完练习必须让老师去判断是否对或错。要在Powerpoint中制作出具有较好交互功能的课件，必须直接在Visual Basic编辑器中进行编程。1、Visual Basic编辑器当我们双击Powe

19、rpoint幻灯片中任一控件时，随即打开VBA编辑器，如下图：VBA编辑器分为：菜单区、工程资源管理区、对象编辑区。用得最多的是“控件代码编辑窗口”及“工程资源管理器”。控件代码编辑窗口。当在幻灯片设置了某一个控件，双击控件时，即可打开相应控件的代码编辑窗口，在些处输入VBA程序代码。输入代码时，一般都是执行Click（）事件，如上面。工程资源管理器。主要列出每一页幻片、窗体、模块等对象信息。所有列出的信息都以“对象”来称呼。2、VBA的常用语句任何程序都是由4种结构的语句组成，VBA也不例外。这4种结构分别为：顺序结构、分支结构、循环结构和模块结构，主要简介前面3种：  

20、     （1）顺序结构顺序结构的程序就是严格按程序编制的顺序执行的。即是从上而下一行一行执行，格式如下：Private Sub CommandButton1_Click()赋值语句End Sub（2） 分支结构在编写程序时，有时需要对不同的条件进行判断，根据条件判断的结束来执行相应的程序。格式如下：  If  条件1 Then表达式1如果 条件1成立 则执行表达式1，Else表达式2  否则，执行 表达式2Eend if条件判断结束（3）循环结构在编写程序时，当处理已知重复次数的循环问题就用For- Next循环

21、： For<循环变量> =<初值> To<终值>Step<步长> <循环体> Next<循环变量> 当不可预知重复次数时，就用DO循环语句：Do While <条件 ><循环体>Loop3、 过程与函数过程是构成程序的一个模块。简单地说，过程就是为完成一定任务而编的一段程序，用来完成一个相对独立的功能。过程可以使程序更清晰、更具结构性。VBA具有四种过程：Sub 过程、Function函数、Property属性过程和Event事件过程。 在做课件过程中，会用到的是Sub过程及Functio

22、n函数。（1）Sub过程    Sub过程又称子过程。    语句结构：    Sub 过程名( )       .    End Sub下面举例一个简单的过程，完成一个基本的功能。    实例a:利用输入、输出函数，输入你的姓名，然后再输出你的名字信息。Sub yourname()         

23、0;           '过程名称是yourname，过程开始 Dim name1 As String                 '定义一个变量name1 name1 = InputBox("请输入你的姓名：") '显示输入对话框，当用户输入姓名后的值赋给变量name

24、1MsgBox "你的姓名是:" & name1         '再用输出对话框，输出你的姓名End Sub                              '过程结束过程的

25、执行（调用）过程：打开文件可以见到，在VBA代码中，有一个过程Sub yourname() ,那如何调用（执行）它的功能呢？在课件中还须设置一个控件“按钮”，这个控件代码（Call yourname），就是调用了这个过程的。所以，在课件播放时，点击“按钮”就可以调用这个过程了。Sub 过程可以带参数，在过程名后面的（）里加上参数。 （2）Function函数    VBA中包含很多内部函数，例如常用的数学函数。这里指的Function函数实际上是 用户自己定义的一段代码，来完成特定的运算并返回结果。参数传递也两种：按值传递(ByVal)和按地址传递(By

26、Ref)。    语句结构：    function 函数名（参数 As 参数类型）       .    End Function 例子：建立一个函数用于计算阶乘，参数和返回值都是Double值。Function factorial(num As Double) As Double '建立阶乘函数，函数名是factorialDim i As Double '定义变量Dim temp As Double '定义变量temp

27、 = 1For i = 1 To num '循环开始temp = i * temp '每循环一次，将数与乘积相乘,temp=1*2*3*.*numNext i '循环结束 factorial = temp '将循环阶乘结束的值赋给factorialEnd Function '函数结束编写了一段VBA程序之后，该如何让它们执行呢？一般是通过控件调用。在Powerpoint幻灯片中设置了一个“控件”（如“命令按钮”控件），双击该控件就可以打开VBA代码编辑窗口 ，在控件的Click事件中编写程序代码。代码编写完毕，并保存。以后在放影课件时，点击该幻

28、灯片的“控件”就直接调用了里面的VBA程序代码了。这是比较常的方法。(四)PPT多媒体交互课件制作实例1、制作课件导航菜单一个成功的课件，PPT课件也不例外，必须有课件的导航菜单。（1）通过“幻灯片母版”设置导航菜单：点击“视图->母版->幻灯片母版”进入母版编辑页，如果不喜欢原来默认的样式，则需把所有的样式都删去，保留一个空白母版。在母版上可以设置背景、页面边框、动作按钮及菜单等功能。    例如：在母版中设置如下菜单按钮，做好超级链接的跳转页面，保存后，则在每一页幻灯片都会显示这个菜单，上课时，不管在课件什么位置，教师都可以点击这个菜单来达到跳转效

29、果，达到“模块操作”效果，而不会因为不知道跳转页面搞得手忙脚乱。（2）通过“触发器”设置导航菜单。利用触发器制作交互课件菜单。利用“动作按钮”来控制课件中“目录菜单”的出现，需要时点击“按钮”，“目录菜单”即出现，不需要时再点击“按钮”，“目录菜单”即消失。制作要求在“母版幻灯片”中进行，因为“目录菜单”需要在每一个幻灯片页面中根据教学的需要随时调出使用，所以必须在“幻灯片母版”中制作。    播放时，只有一个按钮显示在窗口中，当鼠标点击按钮时，从按钮中弹出一个菜单，再点击一下按钮，菜单收回。这个过程要配合菜单的出现方式和退出方式实现，其中的菜单项设置了超级链接。

30、2、 制作试题型课件交互课件，其中重要的一项内容就是在课件是能够提供学习者一些智能交互的练习试题。试题主要分为：客观题（判断题、填空题、选择题）、主观题（简答题、论述题）等。在这里，主要讲述如何制作客观题为例。在PPT课件中，因为PPT课件主要以幻灯片（页）的形式表现出来，而页的长度有限，而不象网页那样页的长度可以随意变化，因此在PPT课件中设计的试题 因页面的局限很难设计出大容量的试卷。通常在课件中提供少量的练习型试题还可以。根据提交答案的方式，试题表现出两种形式：   即显答案形式：是指在一页幻灯片中只设置一道练习题，当做完这道题后再进行下一页做第二

31、道题，这时每一道题的答案会立即显示出来。这种方法往往被多数教师使用，这种表现试题的形式多数为：当点击鼠标时答案立即提示出来。这种方法可以使用普通文字动画形式及简单的VBA编程形式表现出来 。集中提交答卷形式：这种试题形式，就好象整张试卷一样，做完所有练习题后一次提交答案，最后显示答案对错及分数。采用这种形式组织试题需要VBA编程及数据库处理 ，难度比较大。   （1）单项选择题交互课件    要制作单选项，需要使用 选项按钮(OptionButton)，选择按钮通常一组使用，只能选中其中一个，用来制作单项选择题或判断题。  

32、  实例：制作一个信息技术学科的选择题课件.rara.新建幻灯片文档。b.创建题目文本框。文本框输入题目内容：“世界上第一台计算机诞生在哪个国家？”c.创建选项按钮。单击“控件工具箱”中的“选项按钮”控件，光标在幻灯片适当位置拖动鼠标创建第一个选项按钮；按照此方法再制作三个选项按钮。d.设置选项按钮属性值。如下表：     按钮名称属性OptionButton1OptionButton2OptionButton3OptionButton4CaptionA.美国B.英国C.法国D.德国ValueFalseFalseFalseFalse e.编写V

33、BA程序。    (a)这里，第一个选项OptionButton1是正确的，双击这个选项按钮，打开VBA代码编辑窗口， 输入以下代码：Private sub OptionButton1_click()if OptionButton1.Value=True then ex=MsgBox("选择正确！恭喜你！",VbOKOnly)End ifEnd sub    以上代码功能是：当点击选项1时，因为这是正确的答案，屏幕会显示对话框“选择正确！恭喜你！”。    (b)编写错误答案

34、的VBA代码，分别双击OptionButton2、OptionButton3、OptionButton4，打开VBA编辑窗口，输入代码：Private sub OptionButton2_click()if OptionButton2.Value=True then ex=MsgBox("选择错误！请再想想！",VbOKOnly)End ifEnd subPrivate sub OptionButton3_click()if OptionButton3.Value=True then ex=MsgBox("选择错误！请再想想！",Vb

35、OKOnly)End ifEnd subPrivate sub OptionButton4_click()if OptionButton4.Value=True then ex=MsgBox("选择错误！请再想想！",VbOKOnly)End ifEnd sub     以上代码功能是：当点击选项2、选项3或选项4时，因为这是错误的答案，屏幕会显示对话框“选择错误！请再想想！”。f.播放幻灯片。代码编辑完毕，返回幻灯片编辑，播放幻灯片，点击选项按钮，看看效果。这种试题制作形式是“即显答案形式”，当点击选项按钮时，立即显示答案

36、是否正确。    下面让我们继续完善该课件的其它功能。a.添加一个“命令按钮”，将属性Caption 值设置为“重新选择”。双击按钮，打开VBA编辑代码窗口，输入以下代码：Private sub CommandButton1_click()OptionButton1.Value=FalseOptionButton2.Value=FalseOptionButton3.Value=FalseOptionButton4.Value=FalseEnd sub    以上代码功能是，当点击“重新选择”按钮，幻灯片4个选项的值重新设置为“假（Fa

37、lse)"即返回原先没有选中的状态。   b.再添加一个“命令按钮”，将属性Caption 值设置为“下一题”。双击该按钮，打开VBA编辑代码窗口，输入以下代码：Private sub CommandButton2_click()If MsgBox("是否继续？",vbYesNo+vbQuestion,"下一题")=vbYes thenwith slideshowWindows(1).View.GotoSlid 2End WithEnd sub   以上代码功能是：当点击“下一题”时，弹出对话框

38、“是否继续？”，当回答“是”则继续跳传到下一个幻灯片（这里假设是第2片，数字2可根据实际情况的页数跳传）2、数据库连接与操作 制作多媒体课件时，教师们通常把文字、声音、图像、动画与视频资源集于一身，做出来的课件图文并茂，教学效果好。但如果每一节课都能做到图文并茂的话，那是不可能的，也没有必要这样做。要根据不同学科教学的需要来确定教学资源，有的课程，经常需要处理一些数据，通过数据的处理来达到教学目标，而非文字与图像能够做的事；有的课程，需要大量的实验数据或信息资源来实施教学，必须通过从数据库中读取数据来实现。因些，要制作符合学科教学特色的实用性教学课件，除文字、声音、图像、动画与视频资源信息外，

39、对数据的分析与处理，作为提升多媒体课件的教学功能，这是十分必要的。 “数据库”是一个大容量储存器，可以储存大量的教学资源信息，可以储存文字、数据、图像等种格式的数据。例如，用于储存试题 库，需要时调出来使用，相当方便。通过VBA编程可以做到这一点。下面简单介绍建立ACESS数据库的操作。    操作方法如下：（1）打开Office办公软件中的 Access数据库软件；（2）建立数据库。点击菜单“新建”->“空数据库”，打开对话框，输入要保存的数据库文件名：(例如，文件名取： text.mdb ），再点击“创建”。完成一个空数据库的操作，并显示“数据

40、库”管理器窗口，但里面还没有任何数据表。如下图：（3）创建一个数据表。在打开的“数据库”管理器窗口中，双击“使用设计器创建表”，即可打开数据表设计。在这里，你可以设计出个试题库的“表结构”，所谓“表结构”就是要保存试题的表头及格式，例如要在表中将要保存以下数据：“题号、题目、答案1、答案2、答案3、答案4、正确答案、备注”等信息，那么在表设计中必须把这些表结构信息设计好，然后再录入数据。为了方便，暂时把表设计定义为选择题的形式，有4个答案供选择（如果不止4个答案，可定义更多答案）如下表：字段名称数据类型字段大小说明题号文本4题目文本100A文本50答案1B文本50答案2C文本50答案3D文本5

41、0答案4正确答案文本4备注文本50    定义好表结构后，点击“保存”，输入一个表名称（例如：选择题)，再点击“确定”，这样，一个空的表建立完毕。在“数据库”管理器中增加了一个名称为“选择题”的表。    （4）录入试题数据。双击“选择题”表，即打开表编辑窗口，这时，你可以录入你的数据了，录入过程就不用讲了，与电子表格录入差不多吧。最后，记住保存数据。如果你不熟悉在表编辑内录入数据，你可以在电子表格（EXCEL)中事先输入一个完整的试题库电子表格，再使用ACCESS数据库“获取外部数据”功能实现数据的导入。方法是：依次点击“文件-&g

42、t;获取外部数据->导入”命令，打开“导入”窗口，在“文件类型”中选择XLS类型，按提示一步一步完成就可以了。（5）制作与数据库链接的试题实例如右图，    操作步骤简要说明如下：   a.创建一张白幻灯片，设置一个“命令按钮”（Caption取值“显示窗体试题”）   b.打开VBA编辑器，添加一个用户窗体（userform1)，在窗体中添加控件：3个文字框、4个命令按钮等控件，4个命令按钮分别是（开始出题、上一题、下一题、统计总分）c.双击任一个控件，打开代码编辑窗口，复制相应程序代码，稍作修改

43、就可以了：Dim setpxp As New ADODB.RecordsetDim cnnpxp As New ADODB.ConnectionDim constring As StringDim th, tm, da1, da2, da3, da4, da5 As StringDim a(50), b(50), c(50)Dim i, j, row, sum As IntegerPrivate Sub CommandButton1_Click() '开始出题constring = "provider=microsoft.jet.oledb.4.0;" &

44、"data source=" & "d:text.mdb"'如果你的数据库不在D盘，请修改路径cnnpxp.Open constringsetpxp.Open "选择题", cnnpxp, adOpenStatic, adLockOptimisticrow = 0With setpxpDo While Not .EOFrow = row + 1setpxp.MoveNextLoopEnd Withsetpxp.MoveFirstIf Not setpxp.EOF Theni = setpxp("编号"

45、;)th = setpxp("题号")tm = setpxp("题目")'以下是四个答案da1 = setpxp("A")da2 = setpxp("B")da3 = setpxp("C")da4 = setpxp("D")a(i) = setpxp("正确答案") '正确答案c(i) = setpxp("分数") '读取分数CommandButton1.Enabled = FalseCommandButton2

46、.Enabled = TrueIf i < row ThenCommandButton3.Enabled = TrueElseCommandButton3.Enabled = FalseEnd IfCommandButton4.Enabled = FalseTextBox1.Text = th + " " + tmTextBox2.Text = "答案A:" + da1 + " B:" + da2 + " C: " + da3 + " D: " + da4TextBox3.Text = b

47、(i)End IfEnd SubPrivate Sub CommandButton2_Click() '提交答案i = 1sum = 0For i = 1 To rowIf UCase(b(i) = UCase(a(i) Thensum = sum + c(i)End IfMsgBox i & "," & b(i) & "," & a(i)Next iMsgBox "统计总分是：" & sumEnd SubPrivate Sub CommandButton3_Click() '下

48、一题setpxp.MoveNextCommandButton4.Enabled = TrueIf Not setpxp.EOF Theni = setpxp("编号")th = setpxp("题号")tm = setpxp("题目")da1 = setpxp("A")da2 = setpxp("B")da3 = setpxp("C")da4 = setpxp("D")a(i) = setpxp("正确答案") '正确答案c(i) = setpxp("分数") '读取分数TextBox1.Text = th + " " + tmTextBox2.Text = "答案A:" + da1 + " B:" + da2 + " C: " + da3 + " D: " + da4TextBox3.Text = b(i)End IfIf i < row ThenCommandButton3.Enabled = TrueElseCommandButton3.E