题目同前,用复选框(CheckBox),其他设置同单选题。
[查看答案]按钮:因是多选题,答案有多个,所以有多个条件。例如{dy}、三的选项是正确的,则需要输入如下语句:
If CheckBox1.Value=True And?? CheckBox3.Value=True? Then 给出正确的提示信息同单选题
else 给出错误的提示信息同单选题
end if
题目同单选题,填空的地方用文本框。
选中该文本输入框,右击打开代码编辑窗口。点击右上方的下拉按钮,在弹出的下拉列表中选择“LostFocus”。
目的是:当文本输入完成、鼠标离开这个文本框的时候,就会出现在下面设置好的反馈信息。
找到这两行代码:Private Sub TextBox1_LostFocus()和End Sub
在这两行文本中间插入如下代码:
If TextBox1.Value = "正确的文本"
Then MsgBox("不错,你填对了。恭喜您!",vbOKOnly,"填空题")
Else MsgBox(“不对吧?再想想。”
vbOKOnly,"填空题")
TextBox1.Text = ""
End If
如果有多个填空题,那么需要将上面代码中的TextBox1替换为TextBox2、TextBox3等,依此类推。
说明:表示答对或答错时课件的反馈信息,制作中可以根据实际自行更改。
注意:“正确的文本”一定要用半角双引号括起来,如几个空一起判断,方法同多选题。
是非判断题其实就是只有两个选项的单项选择题。xx可以放两个单选按钮,分别代表“是”和“非”。
只不过是设计两个选项“√”和“×”,这两个符号可先在Word中插入,然后再复制过来。
所有的设置与单选题类似,然后按前面单项选择题的制作方法操作。
有时用VBA制作互动式幻灯片,设置的VBA代码xx正常,但却不能正常播放,是由于将宏安全性设置过高引起的
解决方法:执行工具→宏→安全性,打开“安全性”对话框,在“安全级”标签,选中“低”选项,确定返回,VBA即可正常运行。
注意:如没有特殊需要,{zh0}不要将宏安全性设置为“低”,否则当有宏病毒时系统就无法提示。
PPt作品的格式通常为ppt。像一些制作成的xx等的具有智能交互的课件往往保存成pps格式直接播放,防止学生修改。
也可直接制作自动运行光盘。只要把做好的作品打包成CD即可。