PowerPoint中用VBA实现制作小测验教程-POWERPOINT应用技巧

OA办公软件与PDF文件联系紧密，PDF格式的文件也是办公人员必须掌握的！设为首页加入收藏夹我来推荐

POWERPOINT应用技巧

PowerPoint中用VBA实现制作小测验教程

日期：2009-06-04 22:07:10 人气：标签：

　　添加代码

　　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

共有条评论信息评论信息

栏目分类

信息排行