目前本站已有 十几万 份求职资料啦!


用PowerPoint做多种类型的交互练习题

10-15 21:47:25 来源:http://www.qz26.com PowerPoint教程   阅读:8263
导读:用前面的方法插入四个复选框,调整好位置。再插入一个命令按钮,打开“属性”对话框,将“Caption”值设为“答案”。选中“答案”按钮,在右键菜单中选择“查看代码”命令,打开代码编辑窗口。在窗口中找到如下两句代码:Private Sub CommandButton1_Click()End Sub在这两句代码中间插入以下代码:If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox4.Value = True And CheckBox3.Value = False ThenMsgBox "厉害,答对了!", vbOKOnly, "多项选择题"ElseMsgBox "不好意思,您做错了。再仔细想想?", vbOKOnly, "多项选择题"CheckBox1.Value = FalseCheckBox2.Value = FalseCheckBox3.Value =
用PowerPoint做多种类型的交互练习题,标签:PowerPoint学习,PowerPoint视频教程,http://www.qz26.com

  用前面的方法插入四个复选框,调整好位置。再插入一个命令按钮,打开“属性”对话框,将“Caption”值设为“答案”。选中“答案”按钮,在右键菜单中选择“查看代码”命令,打开代码编辑窗口。在窗口中找到如下两句代码:

  Private Sub CommandButton1_Click()

  End Sub

  在这两句代码中间插入以下代码:

  If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox4.Value = True And CheckBox3.Value = False Then

  MsgBox "厉害,答对了!", vbOKOnly, "多项选择题"

  Else

  MsgBox "不好意思,您做错了。再仔细想想?", vbOKOnly, "多项选择题"

  CheckBox1.Value = False

  CheckBox2.Value = False

  CheckBox3.Value = False

  CheckBox4.Value = False

  End If

  如图5所示。放映幻灯片试试,如果出错,呵呵,那就如图6所示效果,弹出一提示框进行提示。

  仔细读一下代码不难发现,其实是做了一个判断:如果第1、2、4个复选框均为选中状态的话,就弹出一个表示答对的提示框,否则就弹出一个答错的提示框,并将所有复选框的选中状态消除,以便再次选择。

  五、填空题

  先做好题目,制作一条短横线表示填空区。点击“开发工具”选项卡中的“文本框”控件,然后拖出一个大小合适的文本框。调整其位置至合适。仍然打开其“属性”对话框,设置其相关的属性,比如字体格式等。这与前面的介绍基本一致,可参照操作。

  选中做好的文本框,打开代码编辑窗口,还是先找到这两句代码:

  Private Sub TextBox1_Change()

  End Sub

  在两句中间插入如下代码:

  If TextBox1.Value = "电脑" Then

  MsgBox "不错,你填对了!", vbOKOnly, "填空题"

  Else

  MsgBox "不对吧?再想想!", vbOKOnly, "填空题"

  TextBox1.Text = ""

  End If

  其中“电脑”是正确的答案。如果在文本框中填入了“电脑”,那么就会弹出正确的提示,反之会弹出错误提示并清除已填写内容。这就是这段代码的含义。

  放映一下试试,是不是可以填入答案并做出相应的反馈啊?效果如图7所示。

  好了,先这么多吧。好好利用控件和VBA代码,可以完成一些看起来不那么容易完成的事情呢!

上一页  [1] [2] 


Tag:PowerPoint教程PowerPoint学习,PowerPoint视频教程电脑培训学习 - 办公软件学习 - PowerPoint教程
【字号: 】 【打印】 【关闭
最新更新
推荐热门
联系我们 | 网站地图 | 财务资料 | 范文大全 | 求职简历 | 财会考试 | 成功励志
Copyright 二六求职资料网 All Right Reserved.
1 2 3 4 5 6 7 8 9 10