三、制作填空题

1、三、制作填空题1、新建一张空“幻灯片” 。2、放置一个“文本框” ，输入“计算机是由硬件和组成”( 题目)3、点击“控件工具”上的“文本框”控件 ( 这时鼠标会变成“十 字形” ) ，然后在“ =”“公顷”之间拖拽鼠标，就可以放置一个“文 本框”控件，最后调整好大小和位置。4、再点击“控件工具箱”上的“命令按钮”控件，用同样的方法拖 拽鼠标在幻灯片上放置一个“命令按钮”控件。5 、用鼠标“右键”点击刚刚放置好的“命令按钮”，选择“属性”。 此时会弹出一个对话框。6、找到“ Caption ”项，把后面的“ Command Buttonl ”值改成 “完成”，关闭属性对话框，即可改变按键名字。7

2、、双击“完成”，此时便进入到了 Visual Basic 代码编写环境 里。在对象对话框中选择 “通用”，在出现的空白行中输入 “Dim num”， 定义了一个变量，作用是记录学生的分数。8、在编辑窗口中找到如下两条语句Private Sub 完成 _Click( )End Sub把这上面的两行代码改成：Private Sub 完成 _Click( )IF Trim(TextBoxl.Text)= ”软件” ThenMsgBoX你答对了”Num=Bum+lElseMsgBox “ 你答错了” ！End IfEnd Sub9、按 F5 按键观看效果，随便输入一个字，然后单击“完成”看 看有什么结

3、果。10 、进入下一题 加人命令按钮，将 Caption 和“( 名称) ”属性都改为“下一题” ，双 击命令按钮，进入VBA插入以下语句：四、制作判断题1 输入题目。新建幻灯片，输入题目： “计算机由硬件和软件组成。 ”2 点击“控件工具”上的“复选框”控件，放置在题目后面。双击复 选框，进入VBA在编辑窗口中找到如下两条语句：Private Sub CheckBoxl_Click( )End Sub 因为本题是正确的， 也就是复选框应该是选中的， 所以在上面这 两条语句中间插入以下语句：If CheckBoxl.Value=True Then num=num+1如果本题是错误的，则应该输入

4、：If CheckBoxl.Value=false Then num=num+13进入下一题。（见单选题）4、显示得分（见单选题）新建一个页面，输入文字： “你最终得分是：”。加入一个标签控 件和一个按钮控件。双击按钮控件，输入： “Label1.Caption=num ”。注意：在OficeXP中默认情况下是禁用 VBA的，如果播放的时 候没有出现交互效果，请将“工具 / 选项/安全”的“宏安全性”设置 为“低”或者“中”。五、多项选择题多选题需要用到复选框。假定有四个选项，其中只有A、B、D三项全选才为正确，多选或少选均为错误。用前面的方法插入四个复选框， 调整好位置。 再插入一个命令按

5、钮，打开“属性”对话框，将“ Caption ”值设为“答案”。选中“答 案”按钮，在右键菜单中选择 “查看代码” 命令，打开代码编辑窗口。 在窗口中找到如下两句代码：Private Sub CommandButton1_Click（）End Sub在这两句代码中间插入以下代码：If CheckBox1.Value = True And CheckBox2.Value = True AndCheckBox4.Value = True And CheckBox3.Value = False ThenMsgBox "厉害，答对了 !", vbOKOnly, " 多项选择题 "ElseMsgBox " 不好意思，您做错了。再仔细想想 ?", vbOKOnly, " 多 项选择题"CheckBox1.Value = Fals