ppt制作的课件,如果在实际教学中能够增加人机交互功能的话,会大大提高课堂效率,促进学生对知识的理解,今天本人在此就利用ppt自带的控件来制作人机交互的多项选择题,详细制作方法请看下文详细介绍。
1、启动ppt2003,执行视图-工具栏-控件工具箱命令,调出控件工具箱,在主编辑区域你会看到该工具箱。
2、在控件工具箱里选择复选框,然后在编辑区域按住左键拖动拉出一个复选框checkbox1,右键单击该复选框从下拉菜单中选择属性,调出属性对话框。
3、在属性对话框中找到caption属性修改其值为“ A、小球A的质量小于小球B的质量”,接着点击font属性修改字体为楷体,字形为常规,字号为三号,点击确定按钮,并设置auotsize为true。
4、选择复选框然后复制三个,并依次修改其caption的值为“ B. 甲液体的密度小于乙液体的密度”、“ C. 在甲液体中小球A对容器底的压力小于小球B对容器底的压力”、"D. 小球A在甲液体中排开液体的质量大于在乙液体中排开液体的质量"。并调节四个选项的位置使布局美观。
5、选择工具箱里命令按钮,在编辑区域拖拽出一个按钮,修改其caption属性值为“确定”,设置前景色为&H000080FF&,背景色为&H00FF80FF&,字体为“王羲之书法字体”,字号为一号。
6、双击确定按钮进入代码编辑区域,输入代码
If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = False Then
MsgBox ("答案正确")
ElseIf (CheckBox1.Value = True And CheckBox4.Value = False) Or (CheckBox2.Value = True And CheckBox4.Value = False) Or (CheckBox3.Value = True And CheckBox4.Value = False) Or (CheckBox1.Value = True And CheckBox2.Value = True And CheckBox4.Value = False) Then
MsgBox ("没有选全")
Else
MsgBox ("答案错误")
End If
并进行调试运行。
7、选择”确定“按钮,然后再复制一个修改其caption属性值为“重选”,接着双击该按钮进入编辑区域,并输入代码
新闻热点
疑难解答