要求结合Access2010数据库“test.accdb”的“选择题”表,利用Powerpoint VBA创建一个“计算机基础考试”系统。其中,“test.accdb”数据库中“选择题”表文件表结构内容如图所示,表数据内容如图所示
部分操作步骤参考如下
打开Powerpoint2010应用程序,将新建的演示文稿文件另存为“计算机基础考试.pptm”,保存类型要选择“启用宏的Powerpoint演示文稿(*.pptm)”
(1) 在VBA编辑器中,选择菜单“插入”|“用户窗体”,修改其(名称)和Caption属性均为“计算机基础考试”。根据如图3.39所示的界面设计该窗体:3个文字框 (TextBox1、TextBox2、TextBox3)、2个标签(Label1、Label2)、5个命令按钮(CommandButton1、CommandButton2、CommandButton3、CommandButton4、CommandButton5)。
(2) TextBox1、TextBox2文字框的MultiLine属性设置为“True”,ScrollBars属性设置为“3-fmScrollBarsBoth”。
(3) Label1、Label2标签的Caption属性分别设置为“答题”和“(请输入答案前面的代码字母)”。5个命令按钮的Caption属性分别设置为“开始出题”、“递交答案”、“下一题”、“上一题”和“退出”。如图3.39所示。
VBA编辑窗口中,选择“工具”|“引用”,打开“引用-VBAProject”对话框,在“可使用的引用”列表框下选中Microsoft Activex Data Objects 2.8 Library(务必打勾),如图3.40所示。再单击“确定”按钮。
将test.accdb 数据库文件拷贝到D盘根目录下,当然也可以放在学号文件夹原位置,这时需要修改以下代码"d:\test.accdb"为你放置test.accdb 数据库文件的路径和包含扩展名的文件名(也可以将数据库文件和演示文稿文件放在同一个文件夹中,这里只要输入“test.accdb”即可)
效果:
操作视频: