在众多的课件类型中，练习与测验类课件是比较重要的一种类型。该类课件的安排十分灵活，可以穿插在课堂的讲课过程中，在讲完一个知识点后，出一两道相关的测验题，考考学生对知识点的掌握程度；也可以把练习与测验类课件作为一个独立的部分，制作成为一个完整的课件，专门作课堂和课后的练习。  练习与测验类课件最重要的特征是交互性。学生在答题的时候得到反馈信息，可以调动学生的积极性。本文将介绍一种利用ActiveX控件和VBA制作一个单项选择题智能课件的方法。  所谓VBA就是MicrosoftVisualBasic的宏语言版本（用于编写Windows应用程序），它是VisualBasicforApplications的英文缩写。将ActiveX控件插入到幻灯片中，然后用VBA编写程序控制这些ActiveX控件，从而达到需要的交互效果。具体制作过程如下：    1创建测验题目内容    1.1新建幻灯片文档  新建1个空白幻灯片文档，设计模板采用Expedition效果，插入1个艺术标题——“单项选择题”。  1.2创建题目文本框  插入5个水平文本框，在1个文本框中输入单选题题目，在另外4个文本框中输入4个备选答案，将其对齐放在合适的位置。    2创建选项按钮    2.1插入选项按钮控件  单击“控件工具箱”中的“选项按钮”控件按钮，这时光标变成“十字”形状，在幻灯片工作区拖动鼠标创建1个选项按钮。  2.2设置选项按钮控件属性  保持选项按钮的选中状态，单击“控件工具箱”中的“属性”按钮，打开“属性”对话框，在这个对话框中可以设置选项按钮的各种属性。这里主要设置Caption、Font、Value这3个属性的值：Caption属性值确定选项按钮旁边的文字信息，这里设置为“A.”；Font属性值确定选项按钮旁边的文字格式，可以根据情况进行设置，使得整体的文字内容协调；Value属性值确定选项按钮是否是默认的选中状态，它有2个值，一个是True（默认处于选中状态），另一个是False（不是默认的选中状态），这里将Value属性值设置为False。  2.
3复制单选按钮控件  将上面创建的选项按钮再复制出来3个复本，然后分别将这3个副本选项按钮的Caption属性值更改为“B.”“C.”“D.”。接着将这4个选项按钮对齐放置在相应的4个备选答案文字左边合适的位置（如图1所示）。    2.4定义单选按钮控件的名称  为了便于下面的VBA编程，这里定义一下4个选项按钮对象的名称。选择第1个选项按钮，然后在“属性”对话框中的“（名称）”属性项后面的文本框中输入But1（如图2所示）。按照同样的方法，定义其他3个选项按钮对象的名称分别为But2、But3、But4。　
  　3编写VBA程序    3.1编写正确答案对应的选项按钮的VBA程序  本实例的第1个备选答案是正确答案。双击这个备选答案前面的选项按钮，打开MircrosoftVisualBasic窗口，在代码编辑窗口中到以下代码：  PrivateSubBut1_Click()    EndSub  然后输入：  IfBut1.Value=TrueThenex=MsgBox("选择正确！恭喜你！",vbOKOnly)  代码输入完成后的结果如图3所示。    3.2编写错误答案对应的选项按钮的VBA程序  双击第2个备选答案前面的选项按钮，弹出MircrosoftVisualBasic窗口，在代码编辑窗口中到以下代码：  PrivateSubBut2_Click()    EndSub  然后输入：  IfBut2.Value=trueThenex=MsgBox("选择错误！请再想想！",vbOKOnly)  剩下的2个备选答案按同样的方法进行设置，最终代码如图4所示。  代码输入完成以后，关闭MircrosoftVisualBasic窗口，返回到幻灯片编辑窗口。    4完善课件功能    4.1添加控制按钮    单击“控件工具箱”中的“按钮”控件按钮，这时光标变成“十字”形状，在幻灯片工作区拖动鼠标创建一个合适大小的按钮。  保持按钮的选中状态，单击“控件工具箱”中的“属性”按钮，打开“
属性”对话框，将Caption属性值设置为“重新选择”（效果如图5所示）。    4.2编写“重新选择”按钮的VBA程序  双击“重新选择”按钮，在打开的代码编辑窗口中的“PrivateSubCommandButton1_Click()”和“EndSub”代码间输入：  But1.Value=False  But2.Value=False  But3.Value=False  But4.Value=False  至此为止，该课件实例制作完成，可以点击观看课件播放效果。　
PowerPoint中利用VBA制作制作智能课件 - 办公软件
vba编程技巧新闻资讯| 网络应用| 信息安全| 电脑评测| 软件技巧| 设计教程|
1、F5键直接放映做好的幻灯片。
  2、在放映过程中，如果觉得鼠标指针影响演示画面，可以按一下字母“A”键或“=”键，来隐藏鼠标指针，再按一次则会显示鼠标指针。
  3、在放映过程中，如果需要临时跳到某一张幻灯片，如准备直接跳到第8张幻灯片，只需按一下数字键“8”(最好按键盘上三排字母键上边的那排数字键，不要使用键盘右边的“数字小键盘”，因为“数字小键盘”受“Num Lock”键控制有两种状态，一种是作数字键使用，一种是当光标键使用。)，然后再按一下回车键就可以了。
  4、在放映过程中，如果中途要结束幻灯片的放映，可以按一下键盘左上角的“ESC”键或“—”(减号)键，也可以先用一只手的一个手指按住一个“Ctrl”键，再用另一只的一个手指按一下“数字小键盘”附近的“Pause Break”键，最后再
把“Ctrl”键放开。
  5、在放映过程中，如果回答听众的提问或者中场休息，可以按一下字母“B”键或“· ”键(大于号键上)，把屏幕切入黑屏，再按一次则又能恢复原状。
  6、在放映过程中，如果需要临时对演示内容进行圈点和批注，可以先用一只手的一个手指按住一个“Ctrl”键，再用另一只的一个手指按一下字母“P”键，最后把“Ctrl”键放开(这样就转成了绘图笔指针了)，这时就可以按住鼠标左键进行圈点、写字、画画了，如果圈点错了，还可以按一下象板擦的字母“E”键擦掉重来，如果想接着演示下边的内容，可以先用一只手的一个手指按住一个“Ctrl”键，再用另一只手的一个手指按一下字母“A”键，最后把“Ctrl”键放开(这样就又转成了箭头指针了)。如果临时要板书几个字或手工画一个简单图形，可以按一下字母“W”键或“，”(逗号)键，把屏幕切入“白板”状态，再利用前面的方法，转换为“绘图笔指针”，错了也可以用字母“E”键擦掉重来，最后也别忘了再转换成“箭头指针”。
  注意：如果上面这些按键和用法你记不住，可以在放映幻灯片过程中右键单击(如图2)，再左键单击“
帮助”，就会打开“幻灯片义映帮助”对话框(如图3)，前面介绍的按键用法都在这里了。
搜索：软件名称软件拼音软件简介文章标题文章内容
您的位置: 首页 >> 文章首页 >> 软件技巧 >> 办公软件 >> 
PowerPoint中利用VBA制作制作智能课件
日期：2007-11-17 23:11:11 作者：刘玉岗 来源：天极网
  PowerPoint附带的VBA功能使其具有了制作智能课件的能力。本文就是基于PowerPoint中的VBA来制作智能的物理课堂小测验的一个例子。
  一、基本构想
图1
  本例很简单，就两道题：界面如图1所示，就是题目、选项和一个按钮，在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知，我们需要一个文本框，四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时，界面能够转到下一题；单击“得分”按钮时，在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。
  二、制作过程
  1、运行PowerPoint2003，单击“文件”-“保存”命令，弹出“另存为”对话框，文件名设为“测验”，单击“保存”命令。
  2、单击“插入”-“文本框”-“水平”命令，这时鼠标变成“1”字型，在编辑区
内单击鼠标左键拖动鼠标拉出一个方框，在框内输入第一题的题目“1.人造地球卫星的轨道半径越大，则”。
  3、下面我们来制作选项。单击“视图”-“工具栏”-“控件工具箱”命令，弹出“控件工具箱”，单击“控件工具箱”上的“选项按钮”控件，鼠标变成十字型，按下鼠标左键拖动鼠标拉出一个方框。单击“控件工具箱”上的“属性”命令，弹出“属性”对话框，把“名称”改为“ti1”，把“caption”改为“A.速度越小，周期越小”，其它设为默认。如图2所示。
图2
  其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”，“caption”分别为“B.速度越小，周期越大”、“C.速度越大，周期越小”、“D.速度越大，周期越大”。
  4、“下一题”按钮的制作。单击“控件工具箱”中“命令按钮”控件，这时鼠标变成十字型，如前在编辑区内拖拉出一个方框，松开鼠标方框会变成一个按钮。选中它，单击鼠标右键，在弹出的快捷菜单中选择“属性”命令，把“命令按钮”属性中的“caption”设为“下一题”。
  这样，第一题的界面就制作完成了。第二题我们可以按照第2-4步做出来，只是要把题目、各个选项值换一下，另外需要添加一个文本框命令，其名称设为“sum”，命令按钮的名称改为“得分”。
  三、添加代码
  1、单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual
basic”编辑器，单击“插入”-“模块”命令，弹出“模块”编辑窗口，在“模块”编辑窗口输入“public fen(2)
as integer”。
  2、选中第一题中“下一题”按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual
basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入
  If ti2.Value = True Then
  fen(0) = 2
  Else
  fen(0) = 0
  End If
  With SlideShowWindows(1).View
  .GotoSlide (2)
  End With
  3、选中最后一题中“得分“按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual
basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入
  If ti3.Value = True Then
  fen(1) = 2
  Else
  fen(1) = 0
　End If
  Dim i, s
  s = 0
  For i = 0 To 2
  s = s + fen(i)
  Next
  sum = s
  好了，退出“Microsoft visual basic”编辑器，按F5试一下效果吧，怎么样，是不是和原来设计的一样呢。
热 点 文 章
热 点 文 章
Microsoft Expression Studio v2.0 注册码
Nero 8.3.2.1 简体中文版序列号（认证通过）
Nero 8.3.2.1 Ultra Edition高清版安装激活方法
Excel 2007六则小招
Adobe Photoshop CS4 绿简体中文特别版 下载
WPS 2007与永中Office的对绝
Powerpoint如何快速插入不同背景图片
用Word 2007快速编排出专业文档(上)
Excel教程:2007表格中可以使用的数字格式
放大Office工具栏图标
推 荐 文 章
网游盗号组织内幕
Photoshop教程：精心打造飘扬的奥运会会族动画
Vegas打造《一个馒头引发的血案》
Excel教程:2007表格中可以使用的数字格式
Photoshop教程：精心制作塑料边框文字
Photoshop教程：制作怀旧及战火效果
Photoshop教程: 调 一个人的精彩
Photoshop教程：非主流效果制作之效果
Photoshop教程：调出浓烈彩的美眉及通透皮肤
Photoshop教程：另类抽丝法
Photoshop教程：手绘之抽线调法
photoshop教程：打造暖调照片
首页 | 广告联系 | 下载排行榜 | 最近更新 | |
版权所有就去资讯站 by 中国 粤ICP备05000936号
Copyright(C) 1999-2006 Www.97info.Com All Rights Reserved
QQ:38766697 Email:xlxzcn@126

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。