PowerPoint中利用VBA制作课堂小测验

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试一下效果吧,怎么样,是不是和原来设计的一样呢。

(0)

相关推荐

  • 巧用WPP制作课堂小测验

    巧用WPP制作课堂小测验

  • excel中利用标签制作三栏表头的方法

    在工作中制作表格是我们经常要进行的活动,尤其是制作表格表头,有些时候需要制作三栏表头或者更多栏表头,那么如何制作呢?下面小编将为大家带来excel中利用标签制作三栏表头的方法.感兴趣的朋友一起去看看吧 ...

  • 在PowerPoint中5分钟制作一个流程图

    PowerPoint是一个功能强大的应用程序,可用于几乎任何类型的演示文稿.使用PowerPoint的一个很好的例子是目前的流程和决策使用流程图.只是办公室的每个版本都有添加标准流程图形状像过程,决策 ...

  • 怎么在Word文档中利用表格制作带分数线的公式?

    我们在工作或者学习的过程中都会使用到word文档,如果我们需要在文档中利用表格制作带分数线的公式应该如何操作呢?具体如下:1. 原理首先,我们需要知道这一操作的原理.我们通过学习知道,一个公式或等式最 ...

  • 利用Coreldraw制作透明小水滴按钮

    利用Coreldraw 制作透明小水滴按钮 步骤/方法 01 在制作之前,首先要分析一下按钮的各部分组成及其形状,典型的按钮大致分为以下几部分: 按钮主体: 按钮阴影部分: 光泽区: 光泽区的透明渐变 ...

  • 在word中利用SmartArt制作金字塔

    前面写用公式输入金字塔数列时提过用SmartArt制作该数列,有朋友问用SmartArt应该怎么做呢,所以,在这里写一个使用SmartArt制作金字塔的方法.主要通过输入数字.添加行数.去除底图来完成 ...

  • excel中使用vba制作查找功能控件

    excel中使用vba制作查找功能控件 操作方法 01 首先我们打开一个工作样表作为例子. 02 打开vba编辑器,插入一个新的模块,并在模块编辑窗口中输入以下代码: Sub 查找指定值() Dim ...

  • Word中利用VBA编程制作考试用作文稿纸

    语文考试中,经常用到作文稿纸,Word中带有稿纸模板,但有诸多限制(如纸型.行列数等相对固定),在试卷排版时颇为不便.经过尝试,笔者找到一种利用Word的VBA编程,通过绘制表格实现考试用作文稿纸的方 ...

  • Word中利用字体制作各种实用标志的方法

    在Word文档的编辑中,有时需要做一些标志符,例如停车场标志、禁止吸烟标志等,怎么办?利用某些字体来制作既快又方便。 1、启动WORD,设置好页面属性。单击菜单“插入→符号”,在“字体”下拉框中选择“ ...