加载中…用ppt里面的控件做交互性课件(20100277)
(2010-11-03 14:38:36)
标签：
杂谈 |
一、单选题的制作
http://s13/bmiddle/6d45a3d949430f9e14b5c&690
所用到的控件有
1、单选题用到的控件有标签、选项按钮、命令按钮。
2、插入标签控件，将其caption属性改为：计算机数据的表现形式是。
3、插入四个选项按钮和两个命令按钮，调整其大小，并修改命令按钮的caption属性为“清空”和“核对答案”
4、双击命令按钮中清空按钮，输入其代码：
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
核对答案的代码为：
If OptionButton1.Value = True Then MsgBox
("正确答案是A,请继续努力")
If OptionButton2.Value = True Then MsgBox ("very
good")
If OptionButton3.Value = True Then MsgBox
("正确答案是A,请继续努力")
If OptionButton4.Value = True Then MsgBox
("正确答案是A,请继续努力")
5、运行调试
6、下一题的代码为：
If MsgBox("
是否继续
", vbYesNo + vbQuestion, "
下一题
") = vbYes Then
SlideShowWindows(1).View.GotoSlide 3
表示如果继续就跳到第三张幻灯片
二、多选题的制作
1、所用到的控件有标签、复选框、命令按钮。
2、插入标签控件，改其caption属性为：下面属于硬件的是
3、插入五个复选按钮和两个命令按钮，调整其大小，并修改命令按钮的caption属性为“清空”和“核对答案”
4、双击命令按钮中的清空按钮，输入其代码为
核对答案的代码为：
核对答案的代码为：
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
If CheckBox2.Value = True And CheckBox4.Value =
True And CheckBox1.Value = False And CheckBox3.Value = False And CheckBox5.Value =
False
Then
MsgBox ("very good")
Else
MsgBox ("选择错误")
End If
5、运行调试。
6、下一题的代码为：
If MsgBox("
是否继续
", vbYesNo + vbQuestion, "
下一题
") = vbYes Then
SlideShowWindows(1).View.GotoSlide 4
表示如果继续就跳到第四张幻灯片
三、填空题
http://s9/bmiddle/6d45a3d949430fc0bd3b8&690
1、用到的控件有标签、文本框、命令按钮。
2、插入标签，改其属性为:ROM的中文全称是。
3、插入文本框和两个命令按钮。
4、清空按钮代码为：TextBox1.Value = "“
If TextBox1.Value = "只读存储器" Then
MsgBox "正确"
Else
MsgBox "错误"
End If
5、运行调试
6、下一题的代码为：
If MsgBox("
是否继续
", vbYesNo + vbQuestion, "
下一题
") = vbYes Then
SlideShowWindows(1).View.GotoSlide 5
表示如果继续就跳到第五张幻灯片
喜欢
0
赠金笔