如何?/p>
PowerPoint
中制作电子考卷
作为教师?/p>
我们经常使用
PowerPoint
做课件进行教学,
而要对学生进行测?/p>
和考试又要打字排版印试卷,考完试还要改卷,要做的功夫很多,其实,在
Pow
erPoint
中使?/p>
VBA
制作简易的电子考卷并不难。下面我们就?/p>
PowerPoint
?/p>
制作电子考卷?/p>
第一步:
新建一?/p>
PowerPoint
文档?/p>
命名?/p>
“考卷?/p>
保存?/p>
?/p>
择一个空白版式幻灯片,在菜单项“视?/p>
\
工具?/p>
\Visual BASIC
?/p>
调用
Visual BASIC
工具栏,
并在这个工具栏中调出
“控件工具箱?/p>
?/p>
使用“控件工具箱”中的工具“命令按钮”制作“姓名输入”按钮,
即用鼠标点选“控件工具箱”中的“命令按钮”,并在空白幻灯?/p>
上拖出一?/p>
?/p>
CommandButton1
?/p>
?/p>
点鼠标右键在
?/p>
CommandButton1
?/p>
的属性框中把它的
Caption
(标题)属性改为“姓名输入”;在这
个按钮的下方用插入文本框输入?/p>
1
题题目;
再点?/p>
“控件工具箱?/p>
中的“选项按钮”制作选择答案
A
,复?/p>
\
粘贴这个选项按钮三次?/p>
到四个选项按钮,分别它们的属性框中修改各个按钮的
Caption
?/p>
性,
得到
B
?/p>
C
?/p>
D
答案选项?/p>
并在下方加入一个动作按钮,
为的?/p>
链接到下一题。如?/p>
1
<IMG&NBSP;&NBSP;HEIGHT=264 onmousewheel="return bbimg
(this)" onload="javascript:if(this.width>500)this.style.wi
dth=500;" width="436 border=0" src="/UpLoadFiles/Editor/2
007-6/20070612005526632.jpg">
?/p>
1
第二步:为了能记录考生做各个题目的答案和统计其得分,要
定义公用变量和数组,双击“输入姓名”按钮进?/p>
VBA
代码编写?/p>
口,选择菜单项“插?/p>
\
模块”,在模块编辑窗口输入代码:
public xm as string
public aw(50) as string
public sm(50) as integer
其中
xm
变量用于记录考生姓名,数?/p>
aw(50)
用于记录考生?/p>
题所选择的答案,
sm(50)
数组用于记录各个答案的得分。这里设?/p>
的数组上界是
50
,如果题目更多,可加大这个上界?/p>