ppt制作电子试卷.docVIP

第一步：新建一个PowerPoint文档，命名为“考卷”保存；选择一个空白版式幻灯片，在菜单项“视图\工具栏\Visual BASIC”调用Visual BASIC工具栏，并在这个工具栏中调出“控件工具箱”，使用“控件工具箱”中的工具“命令按钮”制作“姓名输入”按钮，即用鼠标点选“控件工具箱”中的“命令按钮”，并在空白幻灯片上拖出一个“CommandButton1”，点鼠标右键在“CommandButton1”的属性框中把它的Caption（标题）属性改为“姓名输入”； 输入以下代码： Private Sub CommandButton1_Click() xm = InputBox(输入考生姓名、学号) With SlideShowWindows(1).View .Next End With End Sub 第二步：为了能记录考生做各个题目的答案和统计其得分，要定义公用变量和数组，双击“输入姓名”按钮进入VBA代码编写窗口，选择菜单项“插入\模块”，在模块编辑窗口输入代码： Public xm As String Public aw(10) As String Public sm(10) As Integer Public d(5) As String 其中xm变量用于记录考生姓名， 数组aw(10)用于记录考生各题所选择的答案， sm(10)数组用于记录各个答案的得分。 这里设置的数组上界是10，如果题目更多，可加大这个上界； 数组d(5)用于记录多选题的答案。 第三步：设计单选题目 为每题目的各个答案输入记录答案和得分代码，双击答案A选项按钮，输入代码， Private Sub OptionButton1_Click() aw(1) = A sm(1) = 0 End Sub 双击答案B选项按钮，输入代码， Private Sub OptionButton2_Click() aw(1) = B sm(1) = 0 End Sub 双击答案C选项按钮，输入代码， Private Sub OptionButton3_Click() aw(1) = C sm(1) = 2 End Sub 双击答案D选项按钮，输入代码， Private Sub OptionButton4_Click() aw(1) = D sm(1) = 0 End Sub 第四步：设计多选题目 代码如下： Private Sub CheckBox1_Click() d(1) = A End Sub Private Sub CheckBox2_Click() d(2) = B End Sub Private Sub CheckBox3_Click() d(3) = C End Sub Private Sub CheckBox4_Click() d(4) = D End Sub Private Sub CheckBox5_Click() d(5) = E End 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 Then sm(4) = 5 Else sm(4) = 0 End If CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False CheckBox5.Value = False Dim i As Integer For i = 1 To 5 d(i) = Next End 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 nf With SlideShowWindows(1).View .Exit End With End Sub 最后，为了