如何用ppt随机出题

zorsite

比如：
我有三种题型，单选，多选，判断，各50题。
现在欲将这三种题型每次各随机抽取一道，显示在一个页面上。

也就是说：
每次抽题，都随机抽取一道单选、一道多选、一道判断，然后显示在同一张PPT上。


请问该如何才能做到？
有现成的模板吗？
选谢谢了！

zorsite

在PPT中插入一个 CommandButton，三个label。

按钮的代码如下：
Private Sub CommandButton1_Click()
    Dim a(1 To 5), b(1 To 5), c(1 To 5) As String, x, y, z As Integer
   
    x = Int(Rnd() * 5 + 1)
    y = Int(Rnd() * 5 + 1)
    z = Int(Rnd() * 5 + 1)

a(1) = "1.某注册会计师的女儿持有委托单位的债券，但数额较小．一般我们认为这不会影响注册会计师的独立性。"
a(2) = "2.注册会计师在执业过程中严格遵守独立审计准则，并克尽应有的职业谨慎，但仍有可能未发现会计报表中的错报和漏报。"
a(3) = "3.完整性认定往往与会计报表组成要素的高估有关。"
a(4) = "4.通常，一种审计程序可以获得多种审计证据，而要获得某类证据，也可选用多种审计程序。"
a(5) = "5.如果注册会计师无法取得充分且适当的审计证据，则可视情况发表保留意见或否定意见的审计报告。"

b(1) = "1．会计主体一定是法律主体，而法律主体不一定是会计主体。"
b(2) = "2．企业编报的财务会计报告应当以人民币反映。"
b(3) = "3．科目汇总表账务处理程序的主要特点是定期地将所有记账凭证汇总编制汇总记账凭证，再根据汇总记账凭证登记总分类账。"
b(4) = "4．科目汇总表不仅可以起到试算平衡的作用，而且可以反映账户之间的对应关系。"
b(5) = "5．一个企业只能选择一家银行的一个营业机构开立一个基本存款账户，不得在多家银行机构开立基本存款账户。"

c(1) = "1．采购员张明出差回来，报销差旅费(2) 500元，剩余款项500元退回财务部门。"
c(2) = "2．企业对行政管理部门实行定额备用金制度，定额为(2) 000元，以现金拨付。"
c(3) = "3．接上题，月末，行政管理部门报销日常管理支出(1) 500元。会计部门经审核准予报销，并以现金补足定额。"
c(4) = "4．现金清查中，发现库存现金比账面余额多出200元。经反复核查，上述现金长款原因不明，经批准进行相关账务处理。做出批准前后的会计分录。"
c(5) = "5．现金清查中，发现库存现金比账面余额短缺160元。经查，上述现金短缺属于出纳员李芳的责任，应由该出纳员赔偿。"
   
    Label1.Caption = a(x)
    Label2.Caption = b(y)
    Label3.Caption = c(z)
End Sub

tangqingfu

关注ing……

rcjyjlb

zorsite 发表于 2012-4-9 11:30
在PPT中插入一个 CommandButton，三个label。

按钮的代码如下：

高人 但是为什么PPT 关闭之后再打开的话 就不会再随机出题了呢

人森叶

rcjyjlb 发表于 2012-5-30 09:59
高人 但是为什么PPT 关闭之后再打开的话 就不会再随机出题了呢

貌似我复制过去以后看着可以的，你再检查下看看。

weiyingde

zorsite 发表于 2012-4-9 11:30
在PPT中插入一个 CommandButton，三个label。

按钮的代码如下：

谢谢分享，思路可以。
有点想法，不知对否。
把备选题目录入到VBA工程代码中，不是好的选择。
如果备选的题目多到上千（事实也应该如此，题量少也没有随机的必要），你都录入到VBA工程中，不仅繁琐难以操作，而且会导致代码的冗余啰嗦，造成体积庞大，使真正核心代码消失在备选文本的汪洋大海之中……
建议把备选题目录入到excel中，作为试题库，让ppt从中随机抽取。这样既便于后期题目的补充和整理，又便于程序的维护，更避免了代码的冗余。

zorsite

weiyingde 发表于 2017-4-24 06:51
谢谢分享，思路可以。
有点想法，不知对否。
把备选题目录入到VBA工程代码中，不是好的选择。

你说的非常正确，后来我是在EXCEL中使用用户窗体来显示题干的。
最开始的时候想的是使用PPT来做展示效果会好一些，后来也是因为你说的这个原因没有采用。
其实如果题量不大，倒也不是不可行。题目在EXCEL中编辑好，直接粘贴到PPT中即可。

weiyingde

zorsite 发表于 2017-5-23 16:33
你说的非常正确，后来我是在EXCEL中使用用户窗体来显示题干的。
最开始的时候想的是使用PPT来做展示效果 ...

如果想制作一个考试系统的话，最好在PPT中使用控件，二题库在excel中。我个人认为有以下好处：
1、便于机动，因为目标是“系统”。
2、便于自动批改和计分。
3、便于后期的维护和更新。
4、使用方面，实现代码在其他文档或过程中“移植”，从而提高代码的效用。