ppt制作电子试卷.doc

第一步：新建一个PowerPoint文档，命名为“考卷”保存；选择一个空白版式幻灯片，在菜单项“视图工具栏Visual BASIC”调用Visual BASIC工具栏，并在这个工具栏中调出“控件工具箱”，使用“控件工具箱”中的工具“命令按钮”制作“姓名输入”按钮，即用鼠标点选“控件工具箱”中的“命令按钮”，并在空白幻灯片上拖出一个“CommandButton1”，点鼠标右键在“CommandButton1”的属性框中把它的Caption（标题）属性改为“姓名输入”；输入以下代码：Private Sub CommandButton1_Click()xm = InputBox(输入考生姓名、学号)With SlideShowWindows(1).View.NextEnd WithEnd Sub第二步：为了能记录考生做各个题目的答案和统计其得分，要定义公用变量和数组，双击“输入姓名”按钮进入VBA代码编写窗口，选择菜单项“插入模块”，在模块编辑窗口输入代码：Public xm As StringPublic aw(10) As StringPublic sm(10) As IntegerPublic d(5) As String其中xm变量用于记录考生姓名，数组aw(10)用于记录考生各题所选择的答案，sm(10)数组用于记录各个答案的得分。这里设置的数组上界是10，如果题目更多，可加大这个上界；数组d(5)用于记录多选题的答案。第三步：设计单选题目为每题目的各个答案输入记录答案和得分代码，双击答案A选项按钮，输入代码，Private Sub OptionButton1_Click()aw(1) = Asm(1) = 0End Sub双击答案B选项按钮，输入代码，Private Sub OptionButton2_Click()aw(1) = Bsm(1) = 0End Sub双击答案C选项按钮，输入代码，Private Sub OptionButton3_Click()aw(1) = Csm(1) = 2End Sub双击答案D选项按钮，输入代码，Private Sub OptionButton4_Click()aw(1) = Dsm(1) = 0End Sub第四步：设计多选题目代码如下：Private Sub CheckBox1_Click()d(1) = AEnd SubPrivate Sub CheckBox2_Click()d(2) = BEnd SubPrivate Sub CheckBox3_Click()d(3) = CEnd SubPrivate Sub CheckBox4_Click()d(4) = DEnd SubPrivate Sub CheckBox5_Click()d(5) = EEnd Sub提交按钮代码如下：Private Sub CommandButton1_Click()aw(4) = d(1) & d(2) & d(3) & d(4) & d(5)If CheckBox1.Value = True And CheckBox3.Value = True And CheckBox2.Value = False And CheckBox4.Value = False And CheckBox5.Value = False Thensm(4) = 5Elsesm(4) = 0End IfCheckBox1.Value = FalseCheckBox2.Value = FalseCheckBox3.Value = FalseCheckBox4.Value = FalseCheckBox5.Value = FalseDim i As Integer For i = 1 To 5 d(i) = NextEnd Sub交卷按钮代码如下：Private Sub CommandButton2_Click()Dim i, j, s, nf As Integer nf = FreeFile s = 0 For i = 1 To 10 s = s + sm(i) Next Open d:test & xm & .txt For Append As nf For j = 1 To 10 Print #nf, ( & Str(j) & ) & aw(j); Next j Print #nf, 总分 & Str(s) Close nfWith SlideShowWindows(1).View.ExitEnd WithEnd Sub最后